如何使用文本框显示特定记录？我正在获取Oledb异常错误...请告诉我一个解决方案 [英] How Can I Display A Particular Record Using Textbox ?I Am Getting Oledb Exception Error...Pls Suggest Me A Solution

问题描述

Imports System.Data.OleDb

Public Class Form7

Dim cn As New OleDbConnection

Dim cm As New OleDbCommand

Dim qry As String =

Private Sub Form7_Load（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles MyBase.Load



cn.ConnectionString =Provider = Microsoft.ACE.OLEDB.12.0;数据源= E：\ FINALYRPROJECT.xlsx;扩展属性= excel 12.0;

cn。打开（）

End Sub



Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理Button1。点击

qry =SELECT * FROM [student $] WHERE DOMAIN = CLOUD

cm cm

.Connection = cn

.CommandText = qry

Dim rdr As OleDbDataReader

rdr = cm.ExecuteReader



虽然rdr.Read（）

ComboBox1.Items.Add（rdr（0）.ToString）

结束时

rdr.Close（）

结束时

ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

ComboBox1.SelectedIndex = 0



End Sub

结束类

解决方案

WHERE DOMAIN = CLOUD

cm cm

.Connection = cn

.CommandText = qry

Dim rdr As OleDbDataReader

rdr = cm.ExecuteReader



虽然rdr.Read（）

ComboBox1.Items.Add（rdr（0）.ToString）

结束时

rdr.Close（）

结束

ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

ComboBox1.SelectedIndex = 0



End Sub

End Class

如何使用文本框显示特定记录？



我没有在您的文本框中找到任何文本框码。你想在文本框中显示什么





我收到了oledb异常错误



您在哪一行收到此错误。使用try Catch来捕获错误

Imports System.Data.OleDb
Public Class Form7
Dim cn As New OleDbConnection
Dim cm As New OleDbCommand
Dim qry As String = ""
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source =E:\FINALYRPROJECT.xlsx;extended properties=excel 12.0;"
cn.Open()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
qry = "SELECT * FROM [student$] WHERE DOMAIN = CLOUD"
With cm
.Connection = cn
.CommandText = qry
Dim rdr As OleDbDataReader
rdr = cm.ExecuteReader

While rdr.Read()
ComboBox1.Items.Add(rdr(0).ToString)
End While
rdr.Close()
End With
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
ComboBox1.SelectedIndex = 0

End Sub
End Class

解决方案

WHERE DOMAIN = CLOUD"
With cm
.Connection = cn
.CommandText = qry
Dim rdr As OleDbDataReader
rdr = cm.ExecuteReader

While rdr.Read()
ComboBox1.Items.Add(rdr(0).ToString)
End While
rdr.Close()
End With
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
ComboBox1.SelectedIndex = 0

End Sub
End Class

How Can I Display A Particular Record Using Textbox ?

I did not find any textbox in your code. What do you want to display in textbox


I am getting oledb exception error

In which line you are getting this error. Use try Catch to catch the error

这篇关于如何使用文本框显示特定记录？我正在获取Oledb异常错误...请告诉我一个解决方案的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！