Question

求VB连接sql代码

我在VB里建了一个项目叫form1
里面有个text
有个Button
现在想让text里填个数
按下Button
保存至本地sql数据库叫wind中的trss表中的street列中
请问代码应该如何实现 谢谢（包括数据库连接部分 谢谢 我是新手）

Answer 1

连接数据库首先要点击工程引用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
MsgBox "添加记录成功", vbOKOnly + vbExclamation, ""
rs.Close
Else
MsgBox "信息重复重复!", vbOKOnly + vbExclamation, ""
Text1.SetFocus '当前游标在text1
rs_.Close
Exit Sub
End If
End Sub
自己做的绝对可以运行试试看

Answer 2

'首先： 打开工程，引用，Microsoft Activex Data Objects 2.5 Library

'不懂找我，674236535

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Sq As String

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "不能为空", vbExclamation, "提示"
Text1.SetFocus
Exit Sub
End If

Set Cn = New ADODB.Connection
Cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & _
App.Path & "\wind.mdb" 'App.Path表示当前路径
Sq = "Select * From trss"
Set Rs = New ADODB.Recordset
Rs.Open Sq, Cn, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs.Fields("street") = Trim(Text1.Text)
Rs.Update

Rs.Close
Cn.Close
End Sub

Private Sub Form_Load()

End Sub

Answer 3

在程序保存目录下建一个文本文件，将其文件名及扩展名改为（数据库连接.udl）

配置如图：

Private Sub Command1_Click()

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

con.Open "FILE NAME=" & App.Path & "\数据库连接.udl"

rs.Open "select * from  trss", con, 1, 3

rs.AddNew

rs.Fields(0) =text1  '(0)中的0不是固定的，是street在表中的第n-1列

rs.update

con.close

end sub