PDA

View Full Version : lưu trữ cơ sở dữ liệu được nhập từ VB sang access



hoalanrung90tn
27-10-2010, 21:06
Chào các bạn !
Mình mới học môn VB6.0 nên chưa biết nhiều , mong mọi người chỉ giúp cho mình mấy vấn đề na:
Có bài tập lớn với yêu cầu dữ liệu khi được nhập vào cần được lưu giữ lại làm cơ sở dữ liệu trong access , mà mình thì chưa biết kết nối csdl access với vb và cách lữu trữ dữ liệu mỗi khi nhập và tính toán trên VB sang Access.

cùng cách làm thế nào để xuất ra màn hình nhưng thông sô vừa được nhập vào và tính toán đó .
mong các bạn chỉ giúp

biẽnanh
08-11-2010, 15:36
mình cũng mới học. nên cũng cần cái đó mà chịu.nếu cóp tài liệu gì hướng dẫn mình với nha!

error52
24-11-2010, 15:49
đây là sub dùng để kết nối với csdl access- có hỗ trợ pasword
Còn phần mà bạn phải thực hiện là sử dụng recorset, sử dụng datatgrid ... vướng mắc gì thì post tiếp.

Public Sub Ketnoi(tenfile As String, matkhau As String)
Set cnn = New ADODB.Connection
Dim dbname As String
dbname = App.Path & "\Database\" & tenfile
On Error GoTo LOI
If cnn.State = adStateClosed Then
cnn.ConnectionString = "Provider=" & "Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";Jet OLEDB : Database Password= " & matkhau
cnn.CursorLocation = adUseClient
cnn.Open
End If
Exit Sub
LOI:
MsgBox "Khong the ket noi den co so du lieu !" & vbCrLf & "Vui long kiem tra lai co so du lieu"
End Sub

Public Sub Luu(rst As ADODB.Recordset)
If rst.EditMode = adEditNone Then Gantri rst
Select Case rst.LockType
Case adLockBatchOptimistic
rst.UpdateBatch
Case adLockOptimistic, adLockPessimistic
'rst.Update
End Select
rst.Requery
End Sub


Public Sub Ketnoibang(tenbang As String, rst0 As ADODB.Recordset, dat As Integer, Optional grid As DataGrid, Optional tentruong As String, Optional dk As String)
' Set rst0 = New ADODB.Recordset
If (dk = "" And tentruong = "") Then
If rst0.State = adStateClosed Then rst0.Open tenbang, cnn, adOpenDynamic, adLockOptimistic, adCmdTable
Else
If rst0.State = adStateClosed Then rst0.Open "Select * from " & tenbang & " where " & tentruong & dk, cnn, adOpenDynamic, adLockOptimistic, adCmdText
End If
If dat = 1 Then
If rst0.RecordCount = 0 Then
'MsgBox "Khong co du lieu!", vbInformation, "Thong bao"
Set grid.DataSource = Nothing
grid.Refresh
Exit Sub
Else
Set grid.DataSource = rst0
grid.Refresh
End If
End If
End Sub