VB更新SQL数据库操作问题

OptionExplicitPrivateFunctionSelectsql(SQLAsString)AsADODB.Recordset'返回ADODB.Recordse... Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection

'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=2012.;Initial Catalog=adili;Data Source=192.168.1.10" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function
以上为连接语句，查询正常

Private Sub Command2_Click()
Dim SQL As String

SQL = "updata Inventory set cInvAddCode=' " & Text2.Text & " ' where cInvCode= ' " & Text1.Text & " '"

End Sub

这段更新语句执行后不报错，数据库也没能写入，错在哪里？展开

 我来答

1个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

syx54
2012-08-13 · TA获得超过7378个赞

知道大有可为答主

回答量：6567

采纳率：83%

帮助的人：2733万

我也去答题访问个人页

关注

展开全部

你没有理解：
1，自定义函数．
2，如何调用自定义函数
这2个概念．
例如：
自定义函数：
private FuncTion Myadd(Vyval a as Integer,Byval b as integer) As Integer
Myadd = a + b
End Function
调用函数：
x = 5
y = 6
c = MyAdd(x,y)
Print c
以上当调用MyAdd时，将x=5，y=6分别传递给a和b，在函数Myadd里执行：
Myadd = a + b
得到11，并通过Myadd返回到调用处．
你体会一下调用与返回．
你的程序里，并没有调用自定义的函数代码？或者说你并没有调用过你的自定义函数．

更多追问追答

追问

是的，自定义函数，没有起作用，我再看看，我对数据库不太用会，帮我补充完整好吗

追答

在Command2_Click()里增加调用试试？
Private Sub Command2_Click()
 Dim SQL As String
  
SQL = "updata Inventory set cInvAddCode=' " & Text2.Text & " ' where cInvCode= ' " & Text1.Text & " '"
 
Selectsql　SQL       '调用自定义函数
 
   End Sub

本回答由提问者推荐

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

VB更新SQL数据库操作问题

其他类似问题

为你推荐：