Nối Kết Cơ Sở Dữ Liệu Bằng VB 6.0

Chia sẻ: Abcdef_46 Abcdef_46 | Ngày: | Loại File: PDF | Số trang:5

Thêm vào BST

Báo xấu

144
lượt xem 18
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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;" &...

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 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.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;" & _ "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)
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 If Else GoTo BaoLoi End If Else GoTo BaoLoi
End If Else GoTo BaoLoi End If Else BaoLoi: KiemTraNgayThangNam = "1" End If End Function Public 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
Else BaoLoi: KiemTraTuoi = "1" Exit Function End If End If Else GoTo BaoLoi End If Dung: KiemTraTuoi = "0" End If End Function Email: tech@hungnga.com.vn Đoàn Minh Huân