简单的数据库问题,大家帮忙啊

[Cell]

下面是一段简单的添加数据库记录的代码,没有错误提示,就是添加记录不成功.数据库应该没问题,是ACCESS的库

Dim sLink As String
Dim RsType As New ADODB.Recordset, rsName As New ADODB.Recordset
Dim sString As String

sLink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tjk.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
If g_dbOpened = False Then
Set g_adoCon = New ADODB.Connection
g_adoCon.Open sLink
g_dbOpened = True
End If
sString = "select * from cb08"
RsType.Source = sString
RsType.Open , g_adoCon, adOpenKeyset, adLockOptimistic, adCmdText
RsType.MoveLast'有没有这句都无法添加
RsType.AddNew
RsType.Fields("DM") = "890000"
RsType.Fields("MC") = "adsfadfy"
RsType.Update

[饮水需思源]

'这样试试：
Dim sLink As String
Dim RsType As New ADODB.Recordset, rsName As New ADODB.Recordset
Dim sString As String

sLink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tjk.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
If g_dbOpened = False Then
Set g_adoCon = New ADODB.Connection
g_adoCon.Open sLink
g_dbOpened = True
End If
g_adocon.execute "insert into cb08(dm,mc) values('890000','adsadfy')"

[frankwong]

Dim sLink As String
Dim RsType As New ADODB.Recordset, rsName As New ADODB.Recordset
Dim sString As String

sLink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tjk.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
If g_dbOpened = False Then
Set g_adoCon = New ADODB.Connection
g_adoCon.Open sLink
g_dbOpened = True
End If
sString = "select * from cb08"
'RsType.Source = sString
RsType.Open sString,adOpenKeyset,dLockOptimistic,g_adoCon
'RsType.MoveLast'有没有这句都无法添加
RsType.AddNew
RsType.Fields("DM") = "890000"
RsType.Fields("MC") = "adsfadfy"
RsType.Update

[Cell]

Up,还是不行啊

[SmokerX]

RsType.Open , g_adoCon, adOpenDynamic, adLockOptimistic, adCmdText

[Cell]

RsType.Open , g_adoCon, adOpenDynamic, adLockOptimistic, adCmdText
这样的话回提示没有ＳＱＬ语句的啊

[zyfire88]

RsType.Open ,sString, g_adoCon, adOpenDynamic, adLockOptimistic, -1

[therockdelt]

RsType.Open sString, g_adoCon,adOpenKeyset,dLockOptimistic, adCmdText

[vbman2003]

RsType.Open , g_adoCon, adOpenKeyset, adLockOptimistic, adCmdText
改为：
RsType.Open sString, g_adoCon, adOpenKeyset, adLockOptimistic

[byhum]

你这样写肯定不成功，执行的是select的语句啊
把 sString = "select * from cb08"
RsType.Source = sString
RsType.Open , g_adoCon, adOpenKeyset, adLockOptimistic, adCmdText
去掉，或者换成insert语句，就行了

[xiao1u]

Dim sLink As String
Dim sString As String
Dim g_adoCon As New ADODB.Connection
Dim RsType As New ADODB.Recordset
sLink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\tools\web\SqlIn.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
g_adoCon.ConnectionString = sLink
g_adoCon.Open
sString = "select * from abc where 1<>1"
RsType.Source = sString
RsType.ActiveConnection = g_adoCon
RsType.Open sString, , , adLockOptimistic
RsType.AddNew
RsType.Fields("aaa") = "890000"
RsType.Fields("bbb") = "adsfadfy"
RsType.Update
RsType.Close
Set RsType = Nothing
g_adoCon.Close
Set g_adoCon = Nothing