大家好 : 我想請問你三個問題
第一 以下是我連接sql的方法
我想請問你我們如何得知資料庫中的某個表格有那些資料(這些方法要如何知道呀!)
我想把它們 加到combo1中
第二個問題是 select
from
where
這種sql的指令 可以直接在vb 中寫嗎?
如果可以要如何作呢 ?
第三個問題 請你介紹書給我看好嗎?因為市面上書那麼多不知從何 下手
因為我是初學者所以有些問題很笨喔 希望你能見諒
感謝你撥空看此問題 非常謝謝
Dim ws As Workspace
Dim cn As Connection
Dim rs As Recordset
command1_click()
Dim sql_str As String
On Error GoTo errorexit
Set ws = DBEngine.CreateWorkspace("test", "sa", "", dbUseODBC)
sql_str = "ODBC;UID=sa;PWD=;DSN=project"
Set cn = ws.OpenConnection("", dbDriverNoPrompt, True, sql_str)
Set rs = cn.OpenRecordset("SELECT * FROM test", dbOpenDynaset)
End Sub
第一 以下是我連接sql的方法
我想請問你我們如何得知資料庫中的某個表格有那些資料(這些方法要如何知道呀!)
我想把它們 加到combo1中
第二個問題是 select
from
where
這種sql的指令 可以直接在vb 中寫嗎?
如果可以要如何作呢 ?
第三個問題 請你介紹書給我看好嗎?因為市面上書那麼多不知從何 下手
因為我是初學者所以有些問題很笨喔 希望你能見諒
感謝你撥空看此問題 非常謝謝
Dim ws As Workspace
Dim cn As Connection
Dim rs As Recordset
command1_click()
Dim sql_str As String
On Error GoTo errorexit
Set ws = DBEngine.CreateWorkspace("test", "sa", "", dbUseODBC)
sql_str = "ODBC;UID=sa;PWD=;DSN=project"
Set cn = ws.OpenConnection("", dbDriverNoPrompt, True, sql_str)
Set rs = cn.OpenRecordset("SELECT * FROM test", dbOpenDynaset)
End Sub
文章標籤
全站熱搜
我也是兩個星期前才剛始的初學者..多指教 第一個問題.. 我是方法是用ado 連 odbc 先引用項目 Microsoft AcitveX Data Object 2.0 Library Dim connD as new adodb.connection Dim rstD as new adodb.rcordset dim connStrD as String Dim tFields() As String '定義動態陣列 Dim i As Integer '開啟ODBC連線 connStrD = "DSN=Print; UID=sa; PWD=;" connD.Open connStrD rstD.Open 資料表, connD, adOpenKeyset, adLockPessimistic ReDim tFields(rstD.Fields.Count - 1) '重新定義陣列大小 For i = 0 To rstD.Fields.Count - 1 combol.additem rstD.Fields(i).Name '將欄位寫進combol中 Next i 第二個問題 如同問題一之引用項目 SQL1="Select * from 資料表 where 欄名 = '" & 變數名 & "'" rstD.Open SQL1, connD, adOpenKeyset, adLockPessimistic 各種參數型態請參照vb線上說明.. 第三個關於書的問題...恕我無法提供.. 自己去書店多看幾天..確定自己想要的功能吧.^_^
謝謝你了