怎样向数据库中插入数据？急！！！提示出错！？

Question

怎样向数据库中插入数据？急！！！提示出错！？

Answer 1

Private Sub add_Click()
Dim sex As String, borndate As Date
If Text(1).Text = "" Or Text(3).Text = "" Then
  MsgBox " 学号和姓名不能为空！", vbInformation + vbOKOnly + vbApplicationModal, "程序出错！"
End If
If Option1.Value = True Then
   sex = Option1.Caption
ElseIf Option2.Value = True Then
   sex = Option2.Caption
End If
borndate = CDate(Combo(1).Text & "/" & Combo(2).Text & "/" & Text(5).Text)
Set rs = cnn.Execute("select * from 学生基本信息表 ")
On Err GoTo error
sql = "insert into 学生基本信息表 values('&trim(text(1).text&','&trim(text(2).text&','&trim(text(3).text&','&trim(text(4).text&', '&sex&','&born&','','','','' )"
   
cnn.Execute (sql)
MsgBox " 添加成功！"
error:
 MsgBox "添加失败！", vbCritical + vbOKOnly, "出错"
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 1 To 12
   Combo(1).AddItem i
   Combo(3).AddItem i
Next i
For i = 1 To 31
   Combo(2).AddItem i
   Combo(4).AddItem i
Next i
End Sub
这是化码!

Answer 2

sql = "insert into 学生基本信息表 values('" & trim(text(1).text) & "','" & 
trim(text(2).text) & "','" & trim(text(3).text) & "','" & 
trim(text(4).text) & ", '" & sex & "','" & born & "','','','','' )"
要是數字得話就不要加''

Answer 3

引用变量时注意要有空格：'"& trim(text(1).text) &"'

Answer 4

从你的代码上看，好像sql句子有错误。
连接符(&)两边的应该是双引号(")而不是单引号(')。首先要分清楚sql语句与VB语句之间的字符串表示方法。在sql语句中，字符串是用单引号('')来表示，而VB是双引号("")。
例如：sql="insert into 客户信息表(姓名,年龄) values('" & text1.text & "'," & text2.text & ")"
细心观察连接符吧，还有就像haipingma(今天你过得快乐吗?) 说的，如果字段的类型是数字，就不要加单引号('')。

Answer 5

sql = "insert into 学生基本信息表 values('"& text1 &"',
'"& text2 &"',... )"
cnn.Execute (sql)
字符型变量就用 '"& 变量 &"'
数字，日期，金额就用 "& 变量 &"
字符常量用"常量"
数字，日期，金额常直接写

Answer 6

Set rs = cnn.Execute("select * from 学生基本信息表 ")
On Err GoTo error
一般不会出现错误,rs 没有关闭不允许操作才出错
这样就万无一失了
if is.state=1 then rs.close 
Set rs = cnn.Execute("select * from 学生基本信息表 ")

Answer 7

如果当前的text是文本的时候应该要加单"'"号:sql = "insert into 学生基本信息表 values('" & trim(text(1)) & "')"数字则:
sql = "insert into 学生基本信息表 values(" & val(text(1)) & ")"

Answer 8

sql = "insert into 学生基本信息表 values('&trim(text(1).text&','&trim(text(2).text&','&trim(text(3).text&','&trim(text(4).text&', '&sex&','&born&','','','','' )"
   
cnn.Execute (sql)
监视你的SQL变量的值，贴出来，一看就明白了。

Answer 9

建议楼主先自己从MSDN上查一下