Đang chuẩn bị liên kết để tải về tài liệu:
Nối Kết Cơ Sở Dữ Liệu Bằng VB 6.0

Bài Viết Chỉ Cách Viết Kết Nối CSDL Access bằng VB6.0 Mong Rằng Bài Viết Của Mình Giúp Các Ban Nối CSDL Access được dể dàng(toàn bằng mã lệnh), chứ không dùng công cụ trợ giúp ADO của VB6.o và đoạn mã viết bằng Kiểm Tra Ngày Tháng Năm. các bạn tham khảo nha. Public Sub KetNoiDataEnvironment() Dim db_name, str As String db_name = App.Path & "\GIUPDO.MDB" str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_name & "" Devm.DConection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;Data Source=" & db_name & "" Devm.DConection.Open cn1.Open str End Sub Public Sub KetNoi() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &. | Nối Kết Cơ Sở Dữ Liệu Bằng VB 6.0 Bài Viết Chỉ Cách Viết Kết Nối CSDL Access bằng VB6.0 Mong Rằng Bài Viết Của Mình Giúp Các Ban Nối CSDL Access được dể dàng toàn bằng mã lệnh chứ không dùng công cụ trợ giúp ADO của VB6.O và đoạn mã viết bằng Kiểm Tra Ngày Tháng Năm. các bạn tham khảo nha. Public Sub KetNoiDataEnvironment Dim db_name str As String db_name App.Path GiUPDO.MDB str Provider Microsoft.Jet.OLEDB.4.0 Data Source- db_name Devm.DConection.ConnectionString Provider Microsoft.Jet.OLEDB.4.0 Persist Security Info False Data Source- db_name Devm.DConection.Open cnl.Open str End Sub Public Sub KetNoi cn.ConnectionString Provider Microsoft.Jet.OLEDB.4.0 _ Data Source- App.Path DOANTOTNGHIEP.mdb cn.CursorLocation adUseClient cn.Open End Sub Public Sub LienKet Frm As Form rs As ADODB.Recordset Dim ctrDieuKhien As Control For Each ctrDieuKhien In Frm.Controls If ctrDieuKhien.tag 1 Then Set ctrDieuKhien.DataSource rs ctrDieuKhien.DataMember ctrDieuKhien.DataField - Mid ctrDieuKhien.Name 4 End If Next End Sub Public Function KiemTraRecordset rs As ADODB.Recordset As Boolean Select Case rs.CursorLocation Case adOpenForwardOnly adOpenDynamic adOpenKeyset KiemTraRecordset rs.BOF And rs.EOF Case adOpenStatic KiemTraRecordset rs.RecordCount 0 End Select End Function Public Sub Them rs As ADODB.Recordset rs.AddNew End Sub Public Sub Ghi rs As ADODB.Recordset rs.Update End Sub Public Sub PhucHoi Frm As Form Optional tag 1 Dim ctrDieuKhien As Control For Each ctrDieuKhien In Frm.Controls If ctrDieuKhien.tag tag Then ctrDieuKhien.DataChanged False End If Next End Sub Public Sub BoQua Frm As Form bmk As Variant rs As ADODB.Recordset PhucHoi Frm rs.CancelUpdate If bmk 0 Then rs.Bookmark bmk Else rs.Requery End If End Sub Public Function KiemTraNgayThangNam strdate As String As String Dim temp As Integer Dim strTemp As String temp 3 Kiem tra ngay If IsNumeric Left strdate 1 Then If IsNumeric Mid strdate 2 1 Then If Left strdate 2 31 Then Kiem tra co dau If Mid strdate temp 1 Then