VB里面语句，怎么实现对SQL数据库里面数据的增删改查
有一个information数据库表；
VB设计的界面里面有三个textbox控件，分别用来填写商品编号、商品名称、价格；还有一个button按钮
要实现在运行的时候，分别在三个文本框中输入相应的信息，然后点击button按钮，就可以实现对把这些信息插入到information数据表中。
请问要怎么实现呢？VB里面的代码把我给卡住了，望详细赐教！（小弟对ADO可是一窍不通，最好不要用那个吧）
谢谢！
最新回答
黄色的月亮
2024-10-02 01:06:29
private sub command_click()
Dim mycon As ADODB.Connection '定义连接数据库对象
'如果你的数据库是access用下面的方式打开数据库
'*****************************************
mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source=" & App.Path & "/ 这里写数据库名.mdb"
''*****************************************
'如果你的数据库是SQL的用下面的方式打开数据库
'mycon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=数据库名;Data Source=.\sqlexpress"
'***************************
mycon.Open '打开数据库
Dim rst As New ADODB.Recordset '定义一个记录集 ，用来打开表记录
sql="select * from information"
rst.Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集
rst.addnew '添加空记录
rst.fields(0)=text1,text
rst.fields(1)=text2,text
rst.fields(2)=text3,text
rst.fields(3)=text4,text
rst.fields(4)=text5,text
rst.update '更新数据库
msgbox"数据录入成功"
这样就可以了！ 不过我发现你的界面好像是VB.NET的，如果是VB.NET的你把邮箱发过来我直接过你发过去好了！
追问
好的 谢谢了 我的邮箱是
chengshao.cool@163.com
望详细赐教，我用的是visual studio2008跟SQL Server2008数据库。
追答
我把一个简单的数据库连接发过你！你参考一下吧！
天堂若比邻°く
2024-10-02 02:16:44
Private Sub Command1_Click()
For i = 0 To 5
Text1(i).Text = ""
Next i
Adodc1.RecordSource = "select * from " & s1 & " order by 编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")
Else
Text1(0).Text = "G0001"
End If
End Sub
Private Sub Command2_Click()
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
End If
Else
MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"
End If
End Sub
失心疯〆
2024-10-02 01:27:24
追问
没啊
晚安旧恋人
2024-10-02 03:07:34
青春很沉默
2024-10-02 00:57:58
追问
你看我这一个是登陆严正界面的代码，在网上找的，然后拿来修改的，同样可以运行，这个也跟数据库打交道，但是应该这个没有用到ADO吧，下面是代码：
热门标签
