作者siaujan (...)
看板Visual_Basic
标题Re: [.NET] 读取输入的字来呼叫资料表的资料列
时间Fri May 4 02:07:37 2007
※ 引述《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)