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

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àngtoàn bằng mã lệnh, chứ không

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) <= 31 Then

'Kiem tra co dau "/"

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) <= 12 Then

'Kiem tra co dau "/"

If Mid(strdate, temp + 3, 1) = "/" Then

'Kiem tra nam

If Len(strdate) = 10 Then 'Kiem tra du dd/mm/yyyy

If IsDate(strdate) Then

If Mid(strdate, temp + 4, 4) >= 1900 Then 'Kiem tra nam co >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 Dung

Else

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