i dont want use insert sql query
got other way to do ?
got other way to do ?
Code:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCNString As String
strCNString = "Data Source=" & App.Path & "\final.mdb"
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Open
Dim sql As String
sql = "SELECT sum(salary), name, gender FROM abc GROUP BY name, gender"
Set rs = cn.Execute(sql, , adCmdText)
With rs
.Fields("salary").Value = txtSalary.Text
.Fields("name").Value = txtName.Text
.Fields("gender").Value = txtGender.Text
End With
Comment