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

要先与数据库建立连接,才能执行sql语句,

要是sql语句不能对数据库中的数据直接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库

用Text1做查询输入,这里num属数值字段,用Adodc1控件连接数据库,用

DataGrid1做显示查询结果,在DataGrid1的属性页中选其DataSource为Adodc1如果num字段为文本,则将sql句改为:

sql = "select area from list where num ='" & Val(Text1) & "'"

Private Sub Command1_Click()

sql = "select area from list where num =" & Val(Text1)

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=C:\te1mdb;Persist Security Info=False"

Adodc1RecordSource = sql

Adodc1Refresh'对查询更新

DataGrid1Refresh

End Sub

请参阅:

>

'假定数据表记录集已读取到对象变量rs中

Dim zd As Object

For Each zd In rsFields

    If zdName <> "ID" And Val(zdValue) = 1 Then

        Print zdName     '这个就是找到的字段名

    End If

Next

另外，你这种数据库结构不够科学，应该从横向结构改为纵向结构（即把1、2、3……设为一个字段的不同值，而现在的值则设为另一个字段的不同值），这样的话效率肯定提高10倍以上。此外，字段的总数量是有限制的（好像是256个），所以你这种方法弊端明显。

以上就是关于VB6.0 *** 作SQL数据库（查询，修改，删除，添加）功能全部的内容，包括:VB6.0 *** 作SQL数据库（查询，修改，删除，添加）功能、vb6.0查询ACCESS、VB6.0，关于ACCESSS的数据库查询问题，假设有几百个字段，怎么找出字段值为1的所有字段等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！