Question

vb程序,访问SQL数据库的一个表，能够增加和删除记录

在VB里面编程,实现访问SQL数据库的一个表，能够增加和删除记录,有哪位高手帮忙解决下,小弟感激不尽~~

Answer 1

首先在FORM_LOAD方法里面调用打开连接的方法Opencon

Private Sub Form_Load()
OpenCon
End Sub

然后再来定义怎么连接到数据库，用下面的代码：

Public Function OpenCon() As Boolean
Dim mag As String '定义一个消息框
On Error GoTo strerrmag '发生错误程序跳转到消息框
Set conn = New Connection '创建一个连接
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 数据库用户名;_
password=数据库登陆密码;Initial Catalog=数据库名;Data Source=服务器名"
OpenCon = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect") '定义消息框
addFlag = False
Exit Function
End Function

现在你已经创建好了到数据库的连接了
接下来是怎么对数据库进行添加查询和删除了
先来看添加，创建一个方法 save 来执行在数据库里添加记录的任务

Private Sub Save() '定义一个叫SAVE的方法
Set rs = New Recordset '创建一个叫rs的连接字段
rs.Open "select * from 表名 ", conn, adOpenKeyset, adLockPessimistic '打开连接
rs.AddNew '调用VB里面的AddNew方法进行插入记录
r(0) = '' '对数据库里的表里的字段进行赋值,括号里的数字对应表里字段的排序,''里面是要插入的内容,
r(1) = '' '可以是文本框的内容(Text1.text),也可以是标签的内容(Label1.Caption),
r(2) = '' '具体的自己看看相关的VB教程里控件的属性的定义
r(3) = ''
... ...
rs.Update '调用Update方法,更新表里的记录
rs.Close '插入完了记得关闭这个连接哦
End Sub

对应的,查找基本一样,只是赋值语句倒过来,把数据库里的字段的值赋给窗体里的控件

Private Sub selectmsg() '创建一个查找的方法selectmsg
Set rs = New Recordset '创建一个叫rs的连接字段
rs.Open "select * from aaf_empapp where "条件", conn, adOpenKeyset, adLockPessimistic '打开连接
''=r(0) '给窗体里的对应的控件赋值
''=r(1)
''=r(2)
''=r(3)
... ...
rs.Close '关闭连接
End Sub

最后是删除记录,这个可以用上面的方法,先创建连接,再通过SQL语句来控制操作,但是我们也可以用VB自带的函数来执行

Private Sub delete() '创建一个删除记录的方法
conn.Execute "delete from aaf_empapp where "条件"
End Sub

这样几个语句就可以对我们选顶的记录进行删除了

当然,光这些还不够,我们还需要在需要的地方调用我们定义的方法才能执行想要的操作
比如在窗体里放置了三个分别叫叫 Command1 , Command2 , Command3 的按钮,需要点击它以后执行插入,查找,删除的功能,
那么就在Command_Click的事件中来调用实现定义好的方法.

Private Sub Command1_Click()
Save
End Sub

Private Sub Command2_Click()
selectmsg
End Sub

Private Sub Command3_Click()
delete
End Sub

加入这些代码以后,我们在窗体里点击对应的按钮就可以执行对应的操作了

最后提醒一下,别忘了在 Form_Unload 方法里面关闭数据库连接,释放连接占有的服务器资源

Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub

好了,基本的操作方法就是这样,当然你可以去查找一下VB6.0的MSDN,连接数据库的方法有很多种,里面有很详细的说明的

Answer 2

Public Function qsy(ByVal sql As String, mycn As ADODB.Connection) As ADODB.Recordset
Dim myrs As New ADODB.Recordset
With myrs
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.ActiveConnection = mycn
End With
myrs.Open sql
Set qsy = myrs
End Function
Public Sub odb()
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名;Persist Security Info=False"

If cn.State = adStateOpen Then
cn.Close
Set cn = Nothing
End If
cn.Open strcn
End Sub
'增加
insert into 表名 values
'删除
delete from 表名 where

'修改
update 表名 set
'查询
select * from 表名