Ⅰ 請問：在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中來了。但是這個代碼我不會寫。