如何在VB 6.0上运行插入查询？

Question

我是Visual Basic 6.0的新手，并且我不知道如何编写SQL查询代码，特别是Insert Into

我有1个数据库和2个表（tblNames，tblRemarks）。

在tblNames中，这些字段是：

ID, LastName, FirstName, MidName, DateHired, Position, Department

在tbl中，备注字段为：

ID, FullName, txtDate, Remarks, DateHired, Position

我在做什么就像这样：

SQL =  "SELECT ID, LastName, FirstName, MidName, DateHired, Position FROM tblNames"
SQL2 = "SELECT * fROM tblRemarks"

然后在我的表单上，我有一个DTPicker1和Command1

我想获取tblNames中的所有记录并将其放在tblRemarks上，还要从DTPicker1和Fields Remarks中获取单词“ HOLIDAY”。

我正在做什么，就像这样：在我的模块中，我有以下代码：

Option Explicit
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public cmd As New ADODB.Command
Public SQL As String
Public SQL2 As String

Public Sub connectDB()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\Database.accdb;User ID=admin;Persist Security Info=False;JET OLEDB:Database Password=qqqq"
conn.Open

With RS
    .ActiveConnection = conn
    .Open SQL, conn, 3, 3

End With
End Sub

Public Sub connOpen()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\Database.accdb;User ID=admin;Persist Security Info=False;JET OLEDB:Database Password=qqqq"
conn.Open

With cmd
    .ActiveConnection = conn
    .CommandType = adCmdText
    .CommandText = SQL
    Set RS = .Execute
End With
End Sub

然后我只是在表单中称呼它>

我的问题是这个，我有2个SQL查询，如何在连接中连接这2个SQL？我对其进行了研究，发现可以使用INSERT执行1个查询。

我尝试过，但是我无法使它起作用。我该如何实现？我是VB6的新手。会是这样吗？

SQL = "INSERT ID, LastName, FirstName, MidName, DateHired, Position FROM tblNames" _
& "INTO tblRemarks, #" & DatePick & "# as txtDate, 'HOLIDAY' as Remarks"

我是Visual Basic 6.0的新手，我不知道如何编写SQL查询代码，特别是插入到我的数据库中有2个表（tblNames，tblRemarks）。在tblNames中，这些字段是：ID，LastName，.. 。

Answer 1

完全未经测试，但也许您可以尝试以下操作