ado 写入数据库问题（在线等）

Question

Private Sub Command1_Click()
Dim comSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
mrc.AddNew
mrc.Field(0) = Trim(date1.Text)
mrc.Field(1) = Trim(owner.Text)
mrc.update
End Sub那位大哥能告诉我上面field(0) 和 field(1)对应的是什么位置？？
紧急求教

Answer 1

工程-》引用-》microsoft data access library 2.x
Dim mrc As ADODB.Recordset
strConn=...... '数据库连接字符串，不同的数据库使用不同字符串
set mrc=new adodb.recordset
mrc.open "select a,b,c from tableabc",conn,1,3
mrc.addnew
mrc.field(0)=.... '0代表的是数据库表格的第一个字段。
mrc.update
mrc.close

Answer 2

你就这几行代码想写数据库！！！！！
1、你连接数据库没有
2、你的mrc是怎么来得?当然就没办法addnew and update

Answer 3

Private Sub Command1_Click()
Dim comSQL As String
Dim cnn As New ADODB.Connection
Dim cmm As New ADODB.Command
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "FileDSN=crm.dsn;uid=;pwd="
cnn.Open
rst.AddNew
rst.Fields(0) = Trim(date1.Text)
rst.Fields(1) = Trim(owner.Text)
rst.Update
rst.Close
MsgBox "Ìí¼Ó³É¹¦", vbokonle + vbExclamation, "Ìí¼ÓÓû§"
End Sub那里错了？？

Answer 4

你的记录集都没有打开
Dim comSQL As String
Dim connString As String
Dim cnn As New ADODB.Connection
Dim cmm As New ADODB.Command
Dim rst As New ADODB.Recordset
connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Jet OLEDB:Database Password=***;"
Cnn.Open connString
rec.open comSQL,cnn,1,3
rst.AddNew
rst.Fields(0) = Trim(date1.Text)
rst.Fields(1) = Trim(owner.Text)
rst.Update
rst.Close
MsgBox "Ìí¼Ó³É¹¦", vbokonle + vbExclamation, "Ìí¼ÓÓû§"

Answer 5

模块运行
在vb工程里添加一个标准模块文件
在模块文件里定义main过程
Sub Main()
  msgbox("启动")
End Sub
点工程-->*属性-->启动对象设为Sub Main()