thucgia > 18-10-15, 01:12 PM
Option Compare Database
Public conn As ADODB.Connection
Function get_constrN() As String
Dim myPath As String
Dim myPass As String
myPath = CurrentProject.Path & "\" & "van_de_ado_be.accdb"
myPass = ""
get_constrN = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myPath & ";Jet OLEDB:Database Password=" & myPass & ";"
End Function
Function getRs(sql As String) As ADODB.Recordset
'Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
If conn.State = adStateClosed Then
conn.ConnectionString = get_constrN
conn.Open
Else
End If
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open sql, conn
Set getRs = rs
End Function
Private Sub Form_Open(Cancel As Integer)
Set Me.Recordset = MyAdo.getRs("select * from phieu")
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim sql As String
sql = " SELECT phieu.phieu_id, phieu.khach_id, phieu.loai, khach.ten, khach.tel"
sql = sql & " FROM khach INNER JOIN phieu ON khach.khach_id = phieu.khach_id"
Set Me.Recordset = MyAdo.getRs(sql)
End Sub