vb的insert语句怎么用？

Question

我在做一个数据库程序，不想用addnew添加数据，想用sql的insert语句，可是老用不对
有那位用过告诉我怎么用，假设要添加id,name,sex三项数据，都是必添字段，怎么办？
最好提供ado技术的方法，解决马上给分！

Answer 1

AddSaveSQL = "Insert Into rz_gpjianduan(id,name,sex) Values ('" &  Trim(Txtid.text) & "','" & Trim(Txtname.text) & "','" & Trim(txtsex.text) &  "')"
End If
    Debug.Print AddSaveSQL
 
    If Rs.State = adStateOpen Then       Rs.Close
    AtRs.Open AddSaveSQL, StrCn, , , adCmdText

Answer 2

AddSaveSQL = "Insert Into rz_gpjianduan(id,name,sex) Values ('" &  Trim(Txtid.text) & "','" & Trim(Txtname.text) & "','" & Trim(txtsex.text) &  "')"    Debug.Print AddSaveSQL
 
    If Rs.State = adStateOpen Then       Rs.Close
    AtRs.Open AddSaveSQL, StrCn, , , adCmdText

Answer 3

还是有问题，楼上还在得话，帮忙，提示实时错误"91"。对象变量或with块变量未设置～！

Answer 4

Public cn  As New ADODB.Connection
s = "SELECT 职工编号, 姓名,性别,出生日期, 民族,政治面目,文化程度,职务,参加工作日期,职称等级,身份证号,部门,籍贯,'" & ComputerName & "','" & glid & "'"
s = s & " FROM 人事档案 where (人事档案.姓名 is not null)"
s = s & " ORDER BY 人事档案.职工编号"
cn.Execute "INSERT INTO p_人事档案 ([s1], [s2], [s3], [s4], [s5], [s6], [s7],[s8],[s9],[s10],[s11],[s12],[s13],username,glid) " & s
就是上边的形式。

Answer 5

Dim StrCn As String
Dim CN As ADODB.Connection
Dim AtRs As ADODB.RecordsetPrivate Sub Form_Load()
 Set CN = New ADODB.Connection
 StrCn = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source="
 StrCn = StrCn & App.Path & "\SoftPass.mdb;"
 StrCn = StrCn & "Jet OLEDB:Database Password=;" '密码;"
 
CN.Open StrCn
Set AtRs = New ADODB.Recordset
Set AtRs.ActiveConnection = CN
AtRs.CursorType = adOpenKeyset
AtRs.LockType = adLockBatchOptimistic
End Sub
Private Sub Command1_Click()
AddSaveSQL = "Insert Into rz_gpjianduan(id,name,sex) Values ('" &  Trim(Txtid.text) & "','" & Trim(Txtname.text) & "','" & Trim(txtsex.text) &  "')"    Debug.Print AddSaveSQL
 
    If Rs.State = adStateOpen Then       Rs.Close
    AtRs.Open AddSaveSQL, StrCn, , , adCmdText
End Sub

Answer 6

dim cn as new adodb.connent
cn.open ""
cn.exect ("insert into table (id,name,sex) values ("","","")")
這樣就OK!

Answer 7

如果你使用的是ACCESS2000的话，将上面第6行换成
StrCn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="下面语句中的SoftPass.mdb是您要打开的数据库文件名。
 StrCn = StrCn & App.Path & "\SoftPass.mdb;"如果数据库有密码用类似以下语句（密码为123456）：
StrCn = StrCn & "Jet OLEDB:Database Password=123456;"
另外，
AddSaveSQL = "Insert Into 表名(id,name,sex) Values ('" &  Trim(Txtid.text) & "','" & Trim(Txtname.text) & "','" & Trim(txtsex.text) &  "')"

Answer 8

还是有问题，楼上还在得话，帮忙，提示实时错误"91"。对象变量或with块变量未设置～！
是提示你，RS没有定义
DIM RS AS ADODB。RECORDSET
SET RS=NEW ADODB。RECORDSET

Answer 9

不好意思，以下语句有错
If Rs.State = adStateOpen Then       Rs.Close
应该是 
If atRs.State = adStateOpen Then       atRs.Close

Answer 10

不好意思，以下语句有错
If Rs.State = adStateOpen Then       Rs.Close
应该是 
If atRs.State = adStateOpen Then       atRs.Close
完整的应该是：Dim StrCn As String
Dim CN As ADODB.Connection
Dim AtRs As ADODB.RecordsetPrivate Sub Form_Load()
 Set CN = New ADODB.Connection
 StrCn = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source="
 StrCn = StrCn & App.Path & "\SoftPass.mdb;"
 StrCn = StrCn & "Jet OLEDB:Database Password=;" '密码;"
 
CN.Open StrCn
Set AtRs = New ADODB.Recordset
Set AtRs.ActiveConnection = CN
AtRs.CursorType = adOpenKeyset
AtRs.LockType = adLockBatchOptimistic
End Sub
Private Sub Command1_Click()
AddSaveSQL = "Insert Into rz_gpjianduan(id,name,sex) Values ('" &  Trim(Txtid.text) & "','" & Trim(Txtname.text) & "','" & Trim(txtsex.text) &  "')"    Debug.Print AddSaveSQL
 
    If atRs.State = adStateOpen Then       atRs.Close
    AtRs.Open AddSaveSQL, StrCn, , , adCmdText
End Sub

Answer 11

sql="insert table(f1,f2,f3) values ("","","")"
dim conn as new adodb.connection
conn.open............................
Conn.Execute sql

Answer 12

真是感谢，但是我总是调试不成功，我把代码贴出来，大家帮我看看
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pubdata\info.mdb;Persist Security Info=False"
  cnn.Open "StudentInfo", cnn, 1, 1
SqlStr = "inset into HistoryPaperInfo([id],[name],[sex],[BirthDay]) values (Number & ",'" & StrName & "','" & StrSex & "'" & "#" & StrBirthDay & "#")"
 cnn.Execute SqlStr
我现在都不知道什么地方有问题，着急！
特别感谢maxim(黑马)!

Answer 13

cnn.Open "StudentInfo", cnn, 1, 1
什么意思?这是记录集（Recordset）的打开方法，不是数据库连接的打开方法
cnn.open就可以了，或者不用cnn.ConnectionString = 
直接cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pubdata\info.mdb;Persist Security Info=False"也可以

Answer 14

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pubdata\info.mdb;Persist Security Info=False"
  cnn.Open 
SqlStr = "inset into HistoryPaperInfo([id],[name],[sex],[BirthDay]) values (Number & ",'" & StrName & "','" & StrSex & "'" & "#" & StrBirthDay & "#")"
 cnn.Execute SqlStr