Private Sub Command6_Click()
Dim cn As New ADODB.Connection
Dim Res As New ADODB.Recordset
Dim sql As String
Dim insql As String
If TxtCenid.Text <> "" Then
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\法律條文.mdb;Mode=ReadWrite"
Set Res = New ADODB.Recordset
sql = "Select * From 基礎表 Where ID=" & TxtCenid.Text
Res.Open sql, cn, 1, 3
If Res.RecordCount > 0 Then
insql = "Insert Into Back(書名,章,節,條文) values('" & Res.Fields("書名").Value & "','" & Res.Fields("章").Value & "','" & Res.Fields("節").Value & "','" & Res.Fields("條文").Value & "')"
cn.Execute insql
End If
Res.Close
Set Res = Nothing
End If
DataGrid1.AllowUpdate = True
TxtCenid.Text = ""
End Sub
uj5u.com熱心網友回復：
試試：insql = "Insert Into [Back](書名,章,節,條文) values('" & Res.Fields("書名").Value & "','" & Res.Fields("章").Value & "','" & Res.Fields("節").Value & "','" & Res.Fields("條文").Value & "')"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119363.html