Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\db2.mdb"
.Open
End With
With rs
.ActiveConnection = cn
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = "SELECT * FROM таблица1"
.Open
End With
rs.AddNew
rs.Fields(1) = "новая запись"
.....вывожу в грид
rs.Close
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\db2.mdb"
.Open
End With
With rs
.ActiveConnection = cn
.CursorType = adOpenStatic
'.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = "SELECT * FROM таблица1"
.Open
End With
rs.AddNew
rs.Fields(1) = "новая запись"
my_table = load_lvw(Form1.ListView1, rs)
Set rs = Nothing
Set cn = Nothing
End Sub
Public Function load_lvw(lvw As ListView, rs As Recordset)
lvw.ListItems.Clear
rs.MoveFirst
Do Until rs.EOF
Set dd = lvw.ListItems.Add(, , CStr(rs.Fields(1)))
For i = 2 To rs.Fields.Count - 1
If IsNull(rs.Fields(i)) = False Then
dd.SubItems(i - 1) = CStr(rs.Fields(i))
Else
dd.SubItems(i - 1) = ""
End If
Next i
rs.MoveNext
Loop
rs.Close
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3