• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cách tạo ứng dụng chuyên nghiệp và hiệu quả hơn?

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • MS SQL Server
  • [Hỏi] Cách tạo ứng dụng chuyên nghiệp và hiệu quả hơn?
• Cách tạo ứng dụng chuyên nghiệp và hiệu quả hơn?

• RE: Cách tạo ứng dụng chuyên nghiệp và hiệu quả hơn?

  AnNguyen > 19-12-19, 09:27 AM

  Nhân tiện đây cho em hỏi luôn 1 số cách dùng trong SQL server với ạ.
  Có nhưng Produce Stored đơn giản em viết luôn trong Sql nhưng có một số phức tạp hơn do lựa chọn từ người dùng em chưa biết làm thế nào để gán input tùy biến nên lại dùng cách thủ công này từ Access để load dữ liệu ạ.
  Ví dụ bên dưới nếu em muốn đưa vào SQL Produce Stored thì làm thế nào ạ.
  
  

  Mã:

  Sub Load_ThongTin()

    STT = ""
    If cbTrangThai = "Completed" Then
        STT = "AND t.trangthai_congno=1"
    ElseIf cbTrangThai = "Pending" Then
        STT = "AND t.trangthai_congno=0"
    End If
   
    '============ Ma HOC SINH=============
    MaHS = ""
    If Trim(txtMaHS) <> "" Then
        Ma = m_chuoi.Tach_MaHS_Text(txtMaHS)
        MaHS = " AND t.mahs IN (" & Ma & ")"
    End If
   
    Truong = " AND H.MATRUONG IN (SELECT MATRUONG FROM TBPHANQUYEN WHERE MANV='" & Manv_Log & "' )"
    If cbMaTruong <> "" Then
        Truong = " AND h.matruong='" & cbMaTruong & "'"
    End If

        If cbLoaiHinh.ListIndex = 0 Then
            name_query = "Query_PhatSinhNo" & Time
            sql = "  Select  t.mahs , h.tenhs  , h.lophoc , " & _
            "FROM tbPhatSinhNo t INNER JOIN tbHocSinh h ON t.mahs=h.mahs WHERE  1=1 " & STT & MaHS & Truong
           
            ten_qr = m_Query.Tao_Query("ThongTin", sql)
            sfThuChi.SourceObject = "QUERY." & ten_qr
        End If
End Sub

  
  
  Và Khi viết Produce Stored nếu em truyền nhiều tham số vào thì nếu có nhiều tham số thì phải khai báo nhiều CreateParameter như bên dưới ạ?
  

  Mã:

  Sub Load_Data_Combobox(MaHS,MaTBP) '
    Dim cnn As New ADODB.Connection
    cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=" & stServer & ";Initial Catalog=" & stDatabase & ";UID=" & stUser & ";PWD=" & stPass & ";"
    cnn.Open
    Dim cmd1 As New ADODB.Command
    Set cmd1.ActiveConnection = cnn
    cmd1.CommandText = "dbo.lst_Load_MaHS" 
    cmd1.CommandType = adCmdStoredProc
    Set rst = New ADODB.Recordset
    With rst
    .CursorLocation = adUseClient ' cai nay gan cho combox, neu k co no se k nhan
    .LockType = adLockOptimistic
    End With
    cmd1.Parameters.Append cmd1.CreateParameter("mahs", adVarChar, adParamInput, 15, MaHS) ' gan ma hs
    cmd1.Parameters.Append cmd1.CreateParameter("matbp", adVarChar, adParamInput, 6, matbp) ' gan ma hs
    rst.Open cmd1
    rst.Close
    cnn.Close
End Sub


Sub Xem_Tong_Hs()
    Call lst_ThongTin(txtMaHS,MaTBP)
    While Not rst.EOF
        txtTongPhatSinhNo = rst.Fields("tongno").Value
        txtTongPhatSinhCo = rst.Fields("tongco").Value
        tong = txtTongPhatSinhNo - txtTongPhatSinhCo
        txtTongDu = tong
        rst.MoveNext 
    Wend
End Sub

  
  Và Funcion khi được tạo ra trong sql cũng được gọi ra như Proc ạ?
  Và nếu em tạo 1 Proc Insert/Update mà rất nhiều tham số truyền vào thì như nào ạ.
  Em cũng đã tìm trên mạng để biết thêm nhưng có thể do cách em tìm chưa được chuẩn nên em không tìm được điều mình đang muốn hỏi ạ.
  Em cảm ơn ạ.

• RE: Cách tạo ứng dụng chuyên nghiệp và hiệu quả hơn?

  tranthanhan1962 > 19-12-19, 10:49 AM

  (19-12-19, 09:13 AM)AnNguyen Đã viết: Cảm ơn bác Tranthanhan1962 ạ.
  Thật ra em phân vân là thuê 1 máy chủ hoặc là mua 1 máy vừa dùng được vừa làm server mà chi phí thuê 1 năm là có thể mua được 1 con máy ổn tí ạ.
  Dữ liệu thì đúng là càng ngày sẽ càng nhiều thêm và người dùng cũng sẽ tăng nhẹ ạ. Và khi đó cũng được đôi năm thì lúc đó thuê sau và mình lại có 1 con máy ổn để sử dụng. Sếp thì để mình tự chọn rồi ạ nhưng muốn làm sao sau khi chọn rồi nó phải phù hợp được 2 3 năm chứ được ít bữa mà kêu lên thì không ổn ạ.

  Tất nhiên, mua máy thì kinh tế hơn thuê máy. Nếu bạn chưa có kinh nghiệm thì có thể làm quen với các phòng game, nhờ người giới  thiệu một  anh  IT giỏi xử  lý bootroom. Tìm  được thì nhờ người đó tư vấn phần cứng hoặc lắp ráp + bảo hành luôn (tiện  tay có thể đánh cắp được nghề    ). Server dùng cho CSDL không đòi hỏi cao như phòng game.

• RE: Cách tạo ứng dụng chuyên nghiệp và hiệu quả hơn?

  ongke0711 > 23-12-19, 01:28 AM

  (18-12-19, 08:36 PM)mrsiro Đã viết:

  (18-12-19, 02:02 PM)ongke0711 Đã viết: - Đối với Table có nhiều người dùng, một kỹ thuật khác quan trọng  giúp tăng tốc độ thực thi các Action query (Delete, Update, Insert) là tạo thêm field [TIMESTAMP] cho những Table nào có dữ liệu nhiều, số Field nhiều, thường xuyên cập nhật. Khi bạn tạo một cột có Datatype dạng "TimeStamp", nó phải có tên trùng tên kiểu dữ liệu luôn là [TIMESTAMP]. Nó giống như cột dữ liệu dạng AutoNumber trong table Access vậy. Mỗi khi một record được cập nhật (insert, updatte), hệ thống tự động lưu một giá trị Binary (8 bytes) vào Field này. Khi người dùng A cập nhật record, Access sẽ kiểm tra cột TimeStamp xem có thay đổi giá trị chưa, nếu đã thay đổi tức là có người dùng B đã cập nhật trước thì nó sẽ báo lỗi từ chối không cho A cập nhật, phải Refresh lại dữ liệu để xem cập nhật mới và ngược lại. Nếu table trên SQL Server không có cột TimeStamp, Access sẽ phải duyệt qua tất cả các Field, đối chiếu từng giá trị xem có thay đổi gì không rồi mới cập nhật -> tốn tài nguyên.

  
  Chào bạn ongke, bạn có thể nói thêm về cột timestamp này không.

  
  Trong SQL Server có 1 kiểu dữ liệu (DataType) là "TimeStamp" hoặc "RowVersion". Kiểu TimeStamp thì có thể các phiên bản SQL SV sau này không hỗ trợ mà đổi qua kiểu RowVersion. (Máy tôi SQL sv 2012 vẫn dùng được TimeStamp).
  TimeStamp (RowVersion) nhìn tên nó có chữ "TIME" nhưng thực chất nó không liên quan gì đến kiểu dữ liệu DateTime. Nó giống như AutoNumber trong Access nhưng dưới dạng nhị phân (Binary)
  
  
  
  Cột dạng TimeStamp sẽ lưu thông tin đánh dấu từng dòng trong Table. Mỗi khi có sự cập nhật, thêm mới ... thì cột dạng TimeStamp sẽ tự động tạo chuỗi Binary tăng dần, đánh dấu dòng vừa tạo hay cập nhật.
  Ví dụ: Dùng câu lệnh này để tạo 1 table có cột TimeStamp
  
  CREATE TABLE TestTimeStampTbl(RowID INT IDENTITY(1,1) NOT NULL,
  [TimeStamp] TIMESTAMP, [SmallDateTime] SMALLDATETIME,
  [DateTime]  DATETIME)
  
  Sau đó Insert dòng vô table này và chạy lệnh "Select ... " để thấy cột TimeStamp tự sinh mã nhị phân.
  
  INSERT INTO TestTimeStampTbl([SmallDateTime],[DateTime])VALUES(GETDATE(), GETDATE())
  
  Lợi ích của cột dữ liệu TimeStamp như tôi đã đề cập ở trên.
  Các phiên bản SQL Sv sau nên dùng kiểu RowVerion cũng y chang như TimeStamp.
• Bài trước Bài tiếp