添加記錄到sql的問題
我的Form1中有多個TextBox控件，
Text1.Text怎麼和Sql中的字段關聯起來實現添加記錄到sql啊.
问题点数：10、回复次数：6Top
1 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-04 16:40:53 得分 0
wiht rs
.addnew
!field1 = Text1.Text
!field2 = Text2.Text
!field3 = Text3.TextTop
2 楼weiweiplay（虚幻）回复于 2005-11-04 16:41:31 得分 0
把TextBox建成组，根据Index关联数据表中对应的字段号
例如：TextBox(0) 对应 Fields(0)Top
3 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-04 16:44:31 得分 0
哦，对呀，控件数组Top
4 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-04 16:45:51 得分 10
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
On Error GoTo err
Dim cn As New ADODB.Connection
'有密码的连接：
'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=yourSERVICE"
'无密码的连接：
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
cn.CursorLocation=adUseClient'设置客户端游标
cn.Open
cn.Execute("Insert Into 表 Values('" & Text1.Text & "','" & Text2.Text & "','" & Text1.Text & "','" & Text3.Text & "')")
cn.Close
Set cn=Nothing
Exit Sub
err:
MsgBox err.Description
End SubTop
5 楼clear_zero（clear_zero）回复于 2005-11-04 17:17:07 得分 0
1.text1.text就是一个string类型的变量
sql="insert into tb1 select c1='" & text1.text & "'"
conn.excuse sqlTop
6 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-04 17:28:28 得分 0
conn.excuse sql
楼上写错了-_-
Top
