vb往sql server插入一条记录，请问怎么知道插入成功了？

[imur2008]

vb往sql server插入一条记录，请问怎么知道插入成功了？

比如说要是插入的支付有个单引号“'”，就会报错，我想在插入之后，判断insert是不是成功了

请问要怎么做？？？

[genfuwan]

on error goto errhandle

[genfuwan]

如果不成功,一定会有错误号产生的.

[孤独剑_LPZ]

Public Function updateRS(ByVal sSql As String) As Boolean
Dim sConnect As String
Dim cnGet As ADODB.Connection
' 设置字符串
linkcn = " Provider=sqloledb;Data Source=ss ;Initial Catalog=bb;User Id=sa;Password= sa"
sConnect = linkcn
' 打开连接
Set cnGet = New ADODB.Connection

cnGet.ConnectionTimeout = 300
cnGet.CommandTimeout = 300
cnGet.Open sConnect

' 使用提供的集合创建 recordset
Dim rsGet As ADODB.Recordset
Set rsGet = New ADODB.Recordset
rsGet.CursorLocation = adUseClient
rsGet.Open sSql, cnGet, adOpenStatic, adLockReadOnly
GetRS = true
Set rsGet = Nothing
Set cnGet = Nothing
End Function


'调用语句
dim s as boolean,ssql as string
ssql="insort into cc () select ......"
s= updateRS(ssql)
if s=true then
msgbox "插入成功"
end if

[chenyun1123]

不成功肯定会报错，还有种情况，如果你没有做更新数据也不算写入成功。

[孤独剑_LPZ]

抱歉,GetRS = true 应改为updateRS = true

[lxq19851204]

支持顶一下.

[of123]

采用 Connection 对象的 Execute 方法，有一个返回参数，表明“受影响的记录数”

Dim n As Long

cn.Execute "Insert Into ...", n

[issacp]

在插入语句后，加msgbox "插入成功"进行提示！

[神马都能聊]

[Quote=引用 7 楼 of123 的回复:]
采用 Connection 对象的 Execute 方法，有一个返回参数，表明“受影响的记录数”

Dim n As Long

cn.Execute "Insert Into ...", n
[/Quote]
顶

[simon__sun]

'只要结果dB  As ADODB.Connection

Public Function dbExecute(aStrsql As String) As Long
 On Error GoTo ERR_INFOS
 dB.Execute (aStrsql)
 dbExecute = 1: Exit Function
ERR_INFOS:
    dbExecute = 0
    MsgBox Err.Description
End Function
'回记录集
Public Function Exerst(aStrsql As String, recordset As ADODB.recordset)
 On Error GoTo ERR_INFOS
    If recordset.State = 1 Then recordset.Close
    strsql = aStrsql '"select * from pb_depart order by dptid"
    recordset.Open strsql, dB, adOpenStatic, adLockOptimistic
       Exerst = 1
       Exit Function
ERR_INFOS:
    Exerst = 0
    MsgBox Err.Description
End Function

[prog_6103]

插入了一个记录若成功就表明在数据库中，使用select查找一下有没有刚才插入的记录就好了……

[booksoon]

采用 Connection 对象的 Execute 方法，有一个返回参数，表明“受影响的记录数”

Dim n As Long

cn.Execute "Insert Into ...", n

[三楼の郎]

[Quote=引用楼主 imur2008 的回复:]
vb往sql server插入一条记录，请问怎么知道插入成功了？

比如说要是插入的支付有个单引号“'”，就会报错，我想在插入之后，判断insert是不是成功了

请问要怎么做？？？
[/Quote]

插入不成功会有系统会抛出错误，用两个单引号"''"替代单引号"'"可以将含有单引号"'"的字符串正常插入系统

[jiaochengman]

插入部成功。说明你的标点符号有问题。

[fly896403]

直接去数据库看下~

[imur2008]

结贴致谢！
of123老大的是正解，特别致谢！！！