RE:需要有关查找文本框的帮助 [英] RE: Need Help with a lookup textbox

问题描述

m_RowPosition的初始增量是通过fill命令通过从0开始填充虚拟表(如果可以调用它的话)来实现的.





我逐步完成了它，但看不到它告诉我我的价值观不会改变. . .我仍然是初学者，因此请在这里与我裸露.












嘿，我采纳了有关买书的建议，但是在遇到问题之后，我试图创建一个TEXBOX，该TEX将在数据库中查找多个字段，但始终返回相同的值. . .看一下代码，看看是否有人可以帮忙，

私有m_cnADONetConnection作为新的OleDb.OleDbConnection()
私有m_daDataAdapter作为OleDb.OleDbDataAdapter
私有m_cbCommandBuilder为OleDb.OleDbCommandBuilder
专用m_dtCD作为新数据表
昏暗的m_rowPosition为整数= 0

私有Sub StockDetailsForm_Load(按对象发送方为By，将发送方作为对象，按System.EventArgs为ByVal)处理Me.Load
m_cnADONetConnection.ConnectionString = _
"Provider = Microsoft.Jet.OLEDB.4.0;数据源= C:\ TEST.mdb"

m_cnADONetConnection.Open()

m_daDataAdapter =新的OleDb.OleDbDataAdapter("Select * From CD"，m_cnADONetConnection)
m_cbCommandBuilder =新的OleDb.OleDbCommandBuilder(m_daDataAdapter)
m_daDataAdapter.Fill(m_dtCD)


公开子StockCheck()

StockEdit_Open_Conn()
Dim sql ="SELECT CouplingCode，AlbumTitle，ReleaseDate，TotalSongs，PPD from CD WHERE CouplingCode ="& StockDetailsForm.txtSearch.Text& ""
昏暗的cmd作为新的System.Data.OleDb.OleDbCommand

cmd =新的OleDbCommand(sql，m_cnADONetConnection)
Dim exReader As OleDbDataReader = cmd.ExecuteReader
m_cbCommandBuilder =新的OleDb.OleDbCommandBuilder(m_daDataAdapter)


私有Sub txtSearch_Leave(ByVal发送者为System.Object，ByVal e为System.EventArgs)处理txtSearch.Leave

试试
如果exReader.Read = False，则
MessageBox.Show(库存项目不存在"，库存项目错误"，MessageBoxButtons.OK，MessageBoxIcon.Stop)
m_cnADONetConnection.Close()
m_cnADONetConnection.Dispose()
其他
StockDetailsForm.CouplingCodeID.Text = _
m_dtCD.Rows(m_rowPosition)("CouplingCode").ToString()
StockDetailsForm.txtAlbumName.Text = _
m_dtCD.Rows(m_rowPosition)("AlbumTitle").ToString()
StockDetailsForm.txtPPD.Text = _
m_dtCD.Rows(m_rowPosition)("PPD").ToString()
StockDetailsForm.txtTotalSongs.Text = _
m_dtCD.Rows(m_rowPosition)("TotalSongs").ToString()
StockDetailsForm.dtpReleaseDate.Text = _
m_dtCD.Rows(m_rowPosition)("ReleaseDate").ToString()
StockDetailsForm.txtQtyHand.Text = _
m_dtCD.Rows(m_rowPosition)("QtyOnHand").ToString()
如果结束
End Sub

The initial incrementation of m_RowPosition came by the fill command by means of starting at 0 to fill my virtual table if would call it that





I stepped through it but I can''t see that it tells me that my values won''t change. . . Im still a beginner at this so please bare with me here.












Hey I took the advice on getting books but after that I am stuck , I am trying to create a TEXBOX that wil lookup mutiple fields in my DB but it always returns the same value. . . have a look at the code and see if anyone can help,

Private m_cnADONetConnection As New OleDb.OleDbConnection()
Private m_daDataAdapter As OleDb.OleDbDataAdapter
Private m_cbCommandBuilder As OleDb.OleDbCommandBuilder
Private m_dtCD As New DataTable
Dim m_rowPosition As Integer = 0

Private Sub StockDetailsForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
m_cnADONetConnection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEST.mdb"

m_cnADONetConnection.Open()

m_daDataAdapter = New OleDb.OleDbDataAdapter("Select * From CD", m_cnADONetConnection)
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_daDataAdapter)
m_daDataAdapter.Fill(m_dtCD)


Public Sub StockCheck()

StockEdit_Open_Conn()
Dim sql = "SELECT CouplingCode ,AlbumTitle ,ReleaseDate ,TotalSongs ,PPD FROM CD WHERE CouplingCode=''" & StockDetailsForm.txtSearch.Text & "''"
Dim cmd As New System.Data.OleDb.OleDbCommand

cmd = New OleDbCommand(sql, m_cnADONetConnection)
Dim exReader As OleDbDataReader = cmd.ExecuteReader
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_daDataAdapter)


Private Sub txtSearch_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.Leave

Try
If exReader.Read = False Then
MessageBox.Show("Stock Item does not exist", "Stock Item Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
m_cnADONetConnection.Close()
m_cnADONetConnection.Dispose()
Else
StockDetailsForm.CouplingCodeID.Text = _
m_dtCD.Rows(m_rowPosition)("CouplingCode").ToString()
StockDetailsForm.txtAlbumName.Text = _
m_dtCD.Rows(m_rowPosition)("AlbumTitle").ToString()
StockDetailsForm.txtPPD.Text = _
m_dtCD.Rows(m_rowPosition)("PPD").ToString()
StockDetailsForm.txtTotalSongs.Text = _
m_dtCD.Rows(m_rowPosition)("TotalSongs").ToString()
StockDetailsForm.dtpReleaseDate.Text = _
m_dtCD.Rows(m_rowPosition)("ReleaseDate").ToString()
StockDetailsForm.txtQtyHand.Text = _
m_dtCD.Rows(m_rowPosition)("QtyOnHand").ToString()
End If
End Sub

推荐答案

文本框无法查找任何内容.您是说要在某处增加m_RowPosition吗?您是否已逐步完成调试器中的代码?如果它始终显示相同的值，我怀疑这是因为此变量不会更改.查看调试器会告诉您

A textbox can''t look up anything. Do you mean that you intend to increment m_RowPosition somewhere ? Have you stepped through the code in the debugger ? If it always shows the same value, I suspect this is becasue this variable does not change. Looking at the debugger would tell you that

这篇关于RE:需要有关查找文本框的帮助的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！