text

Question

如何把text的内容,存入数据库中?

Answer 1

Private Sub Command2_Click()
   Set Cnn1 = New ADODB.Connection
   Cnn1.Open Cnn1Str
   Set Rst1 = New ADODB.Recordset
   Rst1.Open "select * from tUsers ,Cnn1, adOpenKeyset, adLockOptimistic
    for i = 1 to 100
        Rst1.Fields("sCardID").Value = text1(i).text      
        Rst1.MoveNext
    next
end

Answer 2

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
'对SQL Server数据库
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"    cn.Execute("Insert Into 表名称(某个列名) values('" & Text1.Text & "')")
    cn.Close
    Set cn=Nothing    
End Sub

Answer 3

数据库是ACCESS通过DataGrid控件显示数据库表1的内容，表1有2列，分别是name,Date of birth当单击添加按钮Command1是，把Text1中的内容添加到name列中，text2中的内容添加到Date of birth中
如何实现

Answer 4

上边说的都这么详细了还不行呀．那你去看看．有关ado方面的知识把．看看例子．