如何用vb6.0向access中写入数据？

Question

如题

Answer 1

http://blog.csdn.net/jackyuanhua/archive/2007/09/09/1778397.aspx

Answer 2

dim conn as new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open'增加记录
conn.execute "insert into tablename(...) values(...)"
'修改记录
conn.execute "update tablename set ... where ..."
'删除记录
conn.execute "delete from tablename where ..."

Answer 3

不过写入ACCESS时候字段的格式应该是：字符字段：'" & m_String & "' ; 日期时间：#" & m_Today & "#;而数值的字段为：" & m_Number & "这点和MSSQL不一样

Answer 4

如果按二楼的写法，查询是不是应该这样写？conn.execute "select 字段 from 表名 where 查询条件"

Answer 5

楼上的，SELECT要求的是返回，你那样写是执行了，但是你怎么得到返回的数据呢？
我的方法如下data.bas
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.RecordsetPublic Function conn() As Boolean   '定义CONN
Set cn = New Connection
On Error GoTo cnerr
    Dim connect As Boolean
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dates.mdb;"
    cn.ConnectionTimeout = 20
    cn.Open
    conn = True
    Exit Function
cnerr:
    conn = False
    MsgBox Err.Description
End FunctionPublic Function openrs(ByVal sqlstr As String) As Boolean    '定义RS
Set rs = New Recordset
On Error GoTo rserr
    rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic, -1
    openrs = True
    Exit Function
rserr:
   openrs = False
    MsgBox Err.Description
End Function
应用if conn() then           '查询    If openrs("select top 1 * from gs where xx_yes='no' order by gs_id") Then
             If Not (rs.EOF And rs.BOF) Then
                 Text1.Text = CStr(rs!gs_id)
             End If
    end if
end if If conn() Then     ' 更新
     sqls = "select * from gs "
        If openrs(sqls) Then
            
                rs.AddNew
                rs!gs_id = text1.text
                rs.Update
                rs.Close
                Set rs = Nothing
        End If
end if