求VB连接sql代码

来源：百度知道 编辑：UC知道 时间：2024/06/25 17:16:54
我在VB里建了一个项目叫form1
里面有个text
有个Button
现在想让text里填个数
按下Button
保存至本地sql数据库叫wind中的trss表中的street列中
请问代码应该如何实现 谢谢（包括数据库连接部分 谢谢 我是新手）

连接数据库首先要点击工程引用microsoft activex data objects 2.5（或以上版本）library使用ado方法调用数据库必须添加的
你窗体的控件是：text1 cmd这俩个
你的意思是将text1中输入的信息保添加到wind数据库的trss表中的street字段中（我的理解是这样的下面我做的代码）
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) = "" Then
MsgBox "请输入信息", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If

'使用app.path即相对路径必须数据库与工程在同一文件下才可以运行这种方法会提高程序的课移植性

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\wind.mdb"
sql = "select * from trss where street='" & Text1.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs.EOF Then
rs.AddNew
rs.Fields("street") = Trim(Text1.Text)

'假设street字段为第一个字段也可以这样写rs.fields（0）=trim（text1.text）以下依次类推

rs.Update
Ms