Ⅰ 请问：在ADO Data控件中使用SQL语句进行数据库删除时报错——实时错误3704,该如何处理(VB6.0)
删除记录不能赋值给记录集。adodc1.recordsource=str 是错误的。先查询，再用adodc1.recordset.delete一条条删除记录。
Ⅱ VB数据库用什么控件好
ado对象是完整的数据库接口,
ado熟练编程是不用ado控件的,
ADO控件只是简单开发使用,
表格工具datagird+adodc 可以很容易上手使用,
但好的表格还是推荐第三方控件如: vsflexgird. 很多.
简单查询功能 adodc1.recordsource = "select * from a where aaa='" & text1.text & "'"
adodc1.refresh
然后看adodc1.recordset.recordcount 数量就知道有没有符合的了.
Ⅲ 在VB中如何调用数据库，用什么控件什么语句
Public Function ConnectString() _
As String
ConnectString = "FileDSN=info.dsn;UID=sa;PWD=23" '连接字符器，改成你自己的
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset '这里是执行SQL语句，你只需要调用这个方法，把SQL查询语句参数传进来，最后返回一个Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function
Ⅳ vb中使用表格控件浏览数据库中的数据
1、用一个ADODC1控件连接你的数据库，在窗口中放一个
表格控件
datagrid1
2、在一事件中（比如按钮单击事件、窗口加载事件）设置以下语句
adodc1.recordsource="select
……"(就是你的查询语句）
adodc1.refresh
set
datagrid1.datasource=adodc1
在最后面加句结束语句:end
sub
Ⅳ VB6.0 怎么把数据库的内容显示到vsflexgrid控件里面
VB6.0
怎么把数据库的内容显示到vsflexgrid控件里面
答：先连接数据库，然后把vsflexgrid控件的数据库连接到打开的数据库源上即可。
添加vsflexgrid后为什么运行时总是先弹出一个版本窗口
应该是你
没有注册原原因吧
另外，如何在vsflexgrid里面加入
复选框
、按钮等其他控件？
这个就不知道了。
Ⅵ VB6.0如何在DATAGRID控件中显示数据库内容啊
这是我做的一个示例，希望对你有所帮助！！Private conn As ADODB.Connection
Private rsmc As ADODB.RecordsetPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()
On Error Resume Next
i = MsgBox("是否清空所有历史记录?", vbYesNo + vbInformation, "提示")
If i = vbYes Then
rsmc.MoveFirst
While Not rsmc.EOF
rsmc.Delete
rsmc.MoveNext
Wend
End If
End SubPrivate Sub Command3_Click()
Me.Hide
End SubPrivate Sub Form_Activate()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xs.mdb"
conn.Open
Set rsmc = New ADODB.Recordset
rsmc.CursorLocation = adUseClient
rsmc.Open "xtZZ", conn, 2, 2
Set DataGrid1.DataSource = rsmc
DataGrid1.Refresh
End Sub
Ⅶ VB6.0与access数据库，在控件（如textbox）属性中绑定数据字段，这种方式是否不能添加数据记录
当adodc所连接的数据表中不存在记录，或者当前记录指针指向BOF或EOF时，就会出现你所说的在文本框输入内容后移开焦点时所输入的内容被自动清空的情况，因为这个时候不存在任何可操作的当前记录，你的操作是无意义的。必须通过其他方法先给数据表添加一个空白记录，这时候adodc的记录指针就会自动指向这个记录，然后再在绑定的文本框中输入数据才有效！比如添加一个名为“新增记录”的按钮：
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew'添加新的空记录
EndSub
此外要注意，输入数据后，并不会立即写入数据库的，这时候有两种方式来处理：一是再次点击“新增记录”按钮，那么在新增一条空记录的同时刚才输入的内容就会被自动写入数据库；二是通过其他方式强制写入数据库，比如新增一个“确认添加”的按钮：
PrivateSubCommand2_Click()
Adodc1.Recordset.Update'更新数据表
EndSub
当然，你也可以发挥你的聪明才智，让程序实现智能操作，比如光标停留在第一个文本框时就自动添加一个空记录，光标离开最后一个文本框时就自动写入数据库，这样就无须专门添加N个按钮来处理了。不过这样一来程序的复杂程度就肯定会上升，比如你需要处理因为无意中点击了第一个文本框而添加的多余空记录。
其他改、删、查的时候也同样要注意：执行操作时，要先把adodc的记录指针指向需要操作的那条记录，否则操作无效，甚至还可能破坏其他正常记录。
Ⅷ VB 6.0中，用msflexgrid控件，修改数据库
用这个控件有点麻烦
因为不能在这个控件直接输入数据的，
一般的方法是
加个文本框，一般情况下是隐藏的，单击表格后，显示出来，移到单击表格的位置，大小也与表格一样，就在文本框里输入数据，完成后把数据保存到数据库里，再隐藏文本框。
Ⅸ VB6.0中怎样使用data控件实现数据库查找功能
1、使用data控件的FindFirst方法可以实现数据库记录的查找。
2、工具：vb6。
3、具体实现方法：
a)在窗体上添加data1、dbgrid1、text1、command1、label1
b)在dbgrid1的DataSource属性里选择data1
c)实现代码如下：
PrivateSubCommand1_Click()
'查找定位记录
Data1.Recordset.FindFirst"CategoryID="&Text1.Text
DBGrid1.DataSource
EndSub
PrivateSubForm_Load()
Data1.Connect="Access2000;"'设置数据库类型
Data1.DatabaseName="C:db1.MDB"'连接数据库
Data1.RecordSource="Categories"'数据库中的表
Data1.Refresh'打开数据库
EndSub
4、注意：数据库可以使用vb6文件夹内的NWIND.MDB
Ⅹ vb6.0中的控件list怎样调用数据库中的东西。
listbox 不能够连接数据库，只能先读出数据库数据，再添加到list里面,建议你用MSHFlexGrid控件'MSHFlexGrid操作参考: Private Sub LoadMSHFlexGridData Dim As New ADODB.Connection, rs As New ADODB.Recordset.Open "DRIVER=Microsoft Access Driver *.mdb; DBQ= " & App.Path & "\数据库.mdb;User Id=admin;Password=;" rs.Open "select * from 表名", adOpenKeyset, adLockBatchOptimistic Set MSHFlexGrid.DataSource = rs End Sub'这样就可以把数据放到MSHFlexGrid里面,然后用list1.AddItem "值" ，就可以把想要的东西加载到listbox控件里了 我现在只想把数据库中的东西读出到listbox控件中来显示。不需要连接数据库。 adodc 跟data不支持list 我们只有自己编写编码把数据库中的值赋给listbox中来了。但是这个代码我不会写。