Question

VB中如何向SQL数据库中的表添加和删除数据

请问我要向数据库中添加或删除这样的数据：姓名：ycc 学号：1795 所选科目：信息管理
添加和删除按钮的语句该怎么编写。（VB2008 SQL2008数据库）

Answer 1

'连接数据库，先要用引用ADO组件
dim cnn as new Adodb.Connection
cnn.open (这里面属性若干，有数据库路径以及表名称，百度一下即可)

dim sql as string 

'添加数据
sql = "inser into 表 (姓名,学号，所选科目) values('ycc',1795,'信息管理')"
cnn.execute sql

'删除数据
sql = "delete from 表 where 表_id = 123456"
cnn.execute sql

'断开
cnn.close
set cnn=nothing

Answer 2

链接数据库的字符串
Public Const Conn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID=sa;PWD=sa;Initial Catalog=hr;Data Source=127.0.0.1"
'hr是数据库名称 Catalong=数据库名称

Private IsConnect As Boolean 判读数据库是否链接
Private cnn As ADODB.Connection 链接数据库的connection对象
Private rs As ADODB.Recordset 保存结果集的recordset对象

数据库链接程序
Public Sub Db_Connect()

如果链接标记为真 返回
If IsConnect = True Then
Exit Sub
End If

关键字New用来创建新对象cnn
Set cnn = New ADODB.Connection
设置cnn的链接字符串的connectstring属性
cnn.ConnectionString = Conn
打开数据库
cnn.Open
判断链接状态
If cnn.State <> adStateOpen Then
如果不成功 显示提示 退出程序
MsgBox "链接数据库失败"
End
End If
设置链接标记 表示已经链接到数据库
IsConnect = True
End Sub

断开数据库的链接程序
Public Sub Db_Disconnect()
如果链接标记为假，表明已经断开 直接返回
If IsConnect = False Then
Exit Sub
End If
关闭链接
cnn.Close
设置链接标记，表明已经断开链接
IsConnect = False

End Sub
'只用来执行Insert，update，delete语句
Public Sub sqlExt(tmpSql As String)
创建command对象cmd
Dim cmd As New ADODB.Command
连接到数据库
DbConnect
设置cmd的ActiveConnection属性，指定其关联的数据库链接
Set cmd.ActiveConnection = cnn
设置要执行的命令文本
cmd.CommandText = tmpSql
执行命令
cmd.Execute
清空cmd对象
Set cmd = noting
断开与数据库的连接
Db_Disconnect

End Sub

执行数据库查询程函数
Public Function QueryExt(tmpSql As String) As ADODB.Recordset
创建recordset对象rst
Dim rst As New ADODB.Recordset
链接到数据库
Db_Connect
设置rst的ActiveConnection属性，指定与其关联的数据库连接
Set rst.ActiveConnection = cnn
设置游标类型
rst.CursorType = adOpenDynamic
设置锁定类型
rst.LockType = adLockOptimistic
打开记录集
rst.Open tmpSql
返回记录集
Set QueryExt = rst

End Function