已經有表books了，要求當我在me.textbox1.text中輸入ISBN編號，me.textbox2.text會顯示資料庫中對應的書名，我大概知道要用到select 書名 from books where ISBN='" & me.textbox1.text & "'" 但是不知道怎么顯示輸入結果.
請問代碼怎么打？我是菜鳥，請高手能告訴下完整的代碼，謝謝啦
uj5u.com熱心網友回復：
來個簡單的實體：Option Explicit
Private MyConn As ADODB.Connection
Private Sub Form_Load()
''打開資料庫
On Error GoTo 100
Dim ConnStr As String
''打開資料庫
ConnStr = "provider=microsoft.jet.oledb.4.0;data source=d:\db1.mdb"
''如果資料庫有密碼，加上下面的
''ConnStr = ConnStr & ";jet oledb:database password=123456"
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = ConnStr
MyConn.Open
Exit Sub
100:
MsgBox Err.Description
End Sub
Private Sub Form_Unload(Cancel As Integer)
''關閉資料庫
MyConn.Close
Set MyConn = Nothing
End Sub
Private Sub Text1_Change()
Text2.Text = GetBookName(Text1.Text)
End Sub
Function GetBookName(ByVal bIsbn As String) As String
On Error GoTo errs
''讀取資料
Dim Rs As New ADODB.Recordset, mySQL As String
mySQL = "select * from books where isbn='" & Trim(bIsbn) & "'" '
Rs.Open mySQL, MyConn, adOpenKeyset, adLockOptimistic
With Rs
If .RecordCount > 0 Then
GetBookName = .fields("書名").Value
End If
End With
Rs.Close
Set Rs = Nothing
Exit Function
errs:
GetBookName = Err.Description
End Function
uj5u.com熱心網友回復：
原理上大致是樓上這樣的，不過樓主你這是VB.NET，一般用ADO.NET方式，其實你找篇講VB.NET資料庫編程的入門文章仔細看看為好：）比如本站相應的blog.csdn.net里
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/106509.html
標籤：VB基礎類
上一篇：mshflexgrid換行的問題
下一篇：求一個擇優的演算法