Question

VB里面语句，怎么实现对SQL数据库里面数据的增删改查

比如说我做的一个VB的界面，专门用来插入某个商品的信息，包括商品编号，商品名称，价格等这些。

有一个information数据库表；
VB设计的界面里面有三个textbox控件，分别用来填写商品编号、商品名称、价格；还有一个button按钮

要实现在运行的时候，分别在三个文本框中输入相应的信息，然后点击button按钮，就可以实现对把这些信息插入到information数据表中。

请问要怎么实现呢？VB里面的代码把我给卡住了，望详细赐教！（小弟对ADO可是一窍不通，最好不要用那个吧）

谢谢！

Answer 1

从“工程”菜单中“引用” 引用Microsoft ActiveX data objects 2.8
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数据库。

追答

我把一个简单的数据库连接发过你！你参考一下吧！

Answer 2

下面的例子就是对数据库进行添加删除修改的操作：
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

Answer 3

已发

追问

没啊

Answer 4

在源码爱好者里边有很多例子 你可以在那里下载例子

Answer 5

不用ADO根本做不到

追问

你看我这一个是登陆严正界面的代码，在网上找的，然后拿来修改的，同样可以运行，这个也跟数据库打交道，但是应该这个没有用到ADO吧，下面是代码：