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 dung trích xuất từ tài liệu:
Nối Kết Cơ Sở Dữ Liệu Bằng VB 6.0 Nối Kết Cơ Sở Dữ Liệu Bằng VB 6.0Bài Viết Chỉ Cách Viết Kết Nối CSDL Access bằng VB6.0 Mong Rằng B àiViế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ằngKiểm Tra Ngày Tháng Năm. các b ạn tham khảo nha.Public Sub KetNoiDataEnvironment()Dim db_name, str As Stringdb_name = App.Path & GIUPDO.MDBstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & db_name & Devm.DConection.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;DataSource= & db_name & Devm.DConection.Open cn1.Open strEnd SubPublic Sub KetNoi() cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source= & App.Path & DOANTOTNGHIEP.mdb cn.CursorLocation = adUseClient cn.OpenEnd SubPublic 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 NextEnd SubPublic Function KiemTraRecordset(rs As ADODB.Recordset) As BooleanSelect Case rs.CursorLocation Case adOpenForwardOnly, adOpenDynamic, adOpenKeyset KiemTraRecordset = rs.BOF And rs.EOF Case adOpenStatic KiemTraRecordset = (rs.RecordCount = 0) End SelectEnd FunctionPublic Sub Them(rs As ADODB.Recordset) rs.AddNewEnd SubPublic Sub Ghi(rs As ADODB.Recordset) rs.UpdateEnd SubPublic Sub PhucHoi(Frm As Form, Optional tag = 1)Dim ctrDieuKhien As ControlFor Each ctrDieuKhien In Frm.Controls If ctrDieuKhien.tag = tag Then ctrDieuKhien.DataChanged = False End IfNextEnd SubPublic 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 IfEnd SubPublic Function KiemTraNgayThangNam(strdate As String) As StringDim temp As IntegerDim strTemp As Stringtemp = 3 Kiem tra ngayIf IsNumeric(Left(strdate, 1)) Then If IsNumeric(Mid(strdate, 2, 1)) Then If Left(strdate, 2) If Mid(strdate, temp, 1) = / Then Kiem tra thang If IsNumeric(Mid(strdate, temp + 1, 1)) Then If IsNumeric(Mid(strdate, temp + 2, 1)) Then If Mid(strdate, temp + 1, 2) 1900 Kiem tra lon hon 18 tuoi Else GoTo BaoLoi End If Else GoTo BaoLoi End If Else GoTo BaoLoi End If Else GoTo BaoLoi End If Else GoTo BaoLoi End If Else GoTo BaoLoi End If Else GoTo BaoLoi End IfElse GoTo BaoLoiEnd IfElse GoTo BaoLoi End IfElse GoTo BaoLoiEnd IfElseBaoLoi: KiemTraNgayThangNam = 1End IfEnd FunctionPublic Function KiemTraTuoi(strdate As String) As String b = Format(Date, dd/mm/yyyy) s1 = Left(b, 2) s2 = Mid(b, 4, 2) s3 = Mid(b, 7, 4) a = (strdate) a1 = Left(a, 2) a2 = Mid(a, 4, 2) a3 = Mid(a, 7, 4) Tinh toan c1 = s1 - a1 c2 = s2 - a2 c3 = s3 - a3 So sanh If c3 > 18 Then GoTo Dung Else If c3 = 18 Then If c2 < 0 Then GoTo Dung Else If c2 = 0 Then If c1 0 Then GoTo BaoLoi End If End If ElseBaoLoi: KiemTraTuoi = 1 Exit Function End If End If Else GoTo BaoLoi End IfDung: KiemTraTuoi = 0End IfEnd FunctionEmail: tech@hungnga.com.vnĐoàn Minh Huân