用VB怎样实现在SQL中的数据输入，修改，保存，查询

我是一个刚接触VB的新人。

我建立了一个新程序。需要对数据库进行如下操作。

A界面上输入信息后。点“确定”按键后。把数据录入到数据库中。

B界面中输入条件，点“查询”按键后。能按查询条件把数据列出来，并显示出来。如果在没有输入查询条件的情况下，点击“查询”按键后。能把所有数据都列出来。

我给你简单的说一下吧，我拿我做的一个软件给你举例

Public link As New ADODB.Recordset'首先在模块中声明一个ADO用于连接数据库

Public Sub runsql(sql As String)'用于接收sql语句并且执行
If link.State = 1 Then'如果已经连接，就断开
link.Close
End If
link.Open sql, conn, 1, 3 '建立接连
End Sub

A：这个给你举登录验证身份的例子

Public Sub loginok()
Call runsql("select * from yonghu where 帐号='" & Text1 & "' and 密码='" & Text2 & "'")

'↑ 将sql语句 传到模块中的runsql中并执行
If link.RecordCount = 0 Then '如果 返回的数据为零，就表示没有匹配的数据
MsgBox "帐号或密码不正确，请核对后重新登陆！", 48, "提示"
Text1.SetFocus
Text1.Text = "不能为空"
Text2.PasswordChar = ""
Text2.Text = "不能为空"
Else
mainform.Show
sc = link.Fields(4)' 从数据库中读取的第4列数据写入变量sc，sc我用来接收上次登录的时间
link.Fields(4) = Now '将当前时间回写到数据库中
xingming = Trim(link.Fields(3)) '从数据库读取第4列数据，并去掉两边空格
quanxian = Trim(link.Fields(2))
zhanghao = Trim(link.Fields(0))
gjl = link.Fields(5)
jjjm = link.Fields(6)
ztl = link.Fields(7)
link.Update '因为有回写操作，所以执行一下保存
link.Close ' 使用完连接，关闭
Unload Me
End If

End Sub

B我给你发个我做的查询窗口

Private Sub Command1_Click()

if text1.text="" then '如果没有输入查询条件

Call runsql("select * from 将要查询的表) '只想显示某几列，就在*的位置键入列明用逗号隔开

Set 某窗口的.DataGrid1.DataSource = link

DataGrid1.Columns(0).Width = 1000 '以下是设置一下 个列的宽度
DataGrid1.Columns(1).Width = 1250
DataGrid1.Columns(2).Width = 2350
DataGrid1.Columns(3).Width = 1050
DataGrid1.Columns(4).Width = 1250
DataGrid1.Columns(5).Width = 1580
DataGrid1.Columns(6).Width = 1580
DataGrid1.Refresh '刷新

else '输入了查询条件

Call runsql("select * from 将要查询的表 where 要查询的内容 like 查询条件或者关键字)

end if

字符有限，而且我也要吃饭了^_^ 希望能帮到你，如果还是不太懂，可以Q我

174894247

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息