VB6.0 操作SQL数据库（查询，修改，删除，添加）功能

Posted 2023-04-17

如题，远程数据库已经成功连接，查询其中的一个表所有字段也已经成功，
模糊查询也是成功的，select * from jbxx where 编号 LIKE '%A-001%'
但是当精确查询的时候确查不到提示语句错误
select * from jbxx where 编号=' " & A-001 & " '
select * from jbxx where 编号=' " & "A-001" & " '
select * from jbxx where 编号="A-001"
以上三段代码都提示语句错误
哪位大侠能看看错在哪里，字段类型为“nvarchar”数据类型

还有 修改 删除，添加功能的代码是怎么样的

参考技术A 你这里没有理解用VB拼接sql的方法

select * from jbxx where 编号='A-001'

如果要将查询条件变为可变的，那么应该类似下面的方法进行编写：
dim strSql as string

strSql="select * from jbxx where 编号='" & "A-001" & "'"

然后进行执行 参考技术B select * from jbxx where 编号='A-001'

用单引号

修改 update 表 set 字段=值 where 条件
删除 delete 表 where 条件本回答被提问者采纳 参考技术C select * from jbxx where 编号=' A-001' 
select * from jbxx where 编号='A-001 '
select * from jbxx where 编号=‘A-001’

把所有双引号都去了

参考技术D 引号使用错误
sql="select * from jbxx where 编号='" & "A-001" & "'"

VB实现ACCESS数据库记录的查询，新增，删除，修改

数据是用adodc加DataGrid连接ACCESS数据库，想在窗体中实现新增，查询，修改，保存，删除按钮，不知道些具体的代码
有类似代码和程序的告诉我下

“修改”按钮的程序
Private Sub cmdEdit_Click()
sql = "select * from 停时统计 where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "'and id = '" & DataGrid1.Columns(2).CellText(DataGrid1.Bookmark) & "'"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.Fields("id") = Text7.Text
rs.Fields("ycqk") = Combo1.Text
rs.Fields("date1") = Text1.Text
rs.Fields("time1") = Text2.Text
rs.Fields("date2") = Text3.Text
rs.Fields("time2") = Text4.Text
rs.Update
rs.Close
End Sub

'“删除”按钮的程序
Private Sub cmdDelete_Click()
strFCode = DataGrid1.Columns(0).CellText(DataGrid1.Bookmark)
strSCode = DataGrid1.Columns(2).CellText(DataGrid1.Bookmark)
strCCode = DataGrid1.Columns(1).CellText(DataGrid1.Bookmark)
sql = "select * from 停时统计 where date='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.Delete
rs.Update
rs.Close
End Sub

'“增加”按钮的程序
Private Sub Command1_Click()
sql = "select * from 停时统计 order by id"
rs.Open sql, dm, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("date") = Date
rs.Fields("id") = Text7.Text - 1
rs.Fields("ycqk") = Combo1.Text
rs.Fields("date1") = Text1.Text
rs.Fields("time1") = Text2.Text
rs.Fields("date2") = Text3.Text
rs.Fields("time2") = Text4.Text
rs.Update
rs.Close

With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 停时统计 where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "' order by id"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub 参考技术A 新增：adodc1.addnew
查询：用select <字段名表> form <数据表名称或视图名称>[where<条件表达式>][group by<字段名1>][order by<字段名2>]
修改：先打开数据表然后更新表，更新：adodc1.undatecontrols
保存：adodc1.updatebatch
删除：adodc1.delete 参考技术B +我qq.明天给告诉你怎么加.