Re: [.NET] 讀取輸入的字來呼叫資料表的資料列

看板Visual_Basic作者 (...)時間17年前 (2007/05/04 02:07), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/4 (看更多)
※ 引述《kenimai (是的, 我只喜歡妳)》之銘言: : 你的 DataTable是放全部的資料還是搜尋後的資料 ? : 若是搜尋後的資料, 應該會只找到唯一一筆會員資料 (如果會員編號是PK的話) : DataTable 裡只有唯一一筆, 索引就是 0 啦, Rows(0)~ 我的資料表是放全部的資料 如果我現在希望可以由Form1的TextBox讀取會員編號, 再按鈕由會員編號對應出各項資料至Form2.. 卡的點我標在下面的程式碼.. 其實我看過一些開放源碼的連結資料庫程式, 但沒看到自行輸入編號再叫出資料的寫法.. ============================ 程式碼 ============================ Dim objDataSet As DataSet Dim curr, max As Integer Private Sub manaMember_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim objCon As OleDbConnection Dim objDataAdapter As OleDbDataAdapter Dim strDbCon As String strDbCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = comicDB.mdb" objCon = New OleDbConnection(strDbCon) objCon.Open() objDataAdapter = New OleDbDataAdapter("SELECT * FROM member", objCon) objDataSet = New DataSet() objDataAdapter.Fill(objDataSet, "comicDB") max = objDataSet.Tables("comicDB").Rows.Count objCon.Close() curr = 1 ShowRecord(curr) End Sub Sub ShowRecord(ByVal pos As Integer) Dim objRow As DataRow objRow = objDataSet.Tables("comicDB").Rows(0) ^ 我是希望這裡可以 由輸入的會員編號對照索引欄位 TextBox6.Text = objRow("PW") TextBox2.Text = objRow("姓名") TextBox3.Text = objRow("性別") TextBox4.Text = objRow("聯絡電話") TextBox5.Text = objRow("出生日期") End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.113.3.173 ※ 編輯: siaujan 來自: 59.113.3.173 (05/04 02:08)
文章代碼(AID): #16EYJkLd (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #16EYJkLd (Visual_Basic)