Bài Viết Chỉ Cách Viết Kết Nối CSDL Access bằng 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 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 = & "\" str = "Provider=;Data Source=" & db_name & "" = "Provider=;Persist Security Info = False;Data Source=" & db_name & "" str End Sub Public Sub KetNoi() = "Provider=;" &. | Nối Kết Cơ Sở Dữ Liệu Bằng VB Bài Viết Chỉ Cách Viết Kết Nối CSDL Access bằng 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 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 str Provider Data Source- db_name Provider Persist Security Info False Data Source- db_name str End Sub Public Sub KetNoi Provider _ Data Source- adUseClient End Sub Public Sub LienKet Frm As Form rs As Dim ctrDieuKhien As Control For Each ctrDieuKhien In If 1 Then Set rs - Mid 4 End If Next End Sub Public Function KiemTraRecordset rs As As Boolean Select Case Case adOpenForwardOnly adOpenDynamic adOpenKeyset KiemTraRecordset And Case adOpenStatic KiemTraRecordset 0 End Select End Function Public Sub Them rs As End Sub Public Sub Ghi rs As End Sub Public Sub PhucHoi Frm As Form Optional tag 1 Dim ctrDieuKhien As Control For Each ctrDieuKhien In If tag Then False End If Next End Sub Public Sub BoQua Frm As Form bmk As Variant rs As PhucHoi Frm If bmk 0 Then bmk Else 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
