به نظر شما ایراد این کد کجاس ؟

[یاشار رضایی نسب]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim conn As New SqlConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\sherkat\\nagshe - info.accdb")

Dim cmm As New SqlCommand
Dim dr As SqlDataReader
Dim code As String
conn.Open()
cmm.Connection = conn

cmm.CommandText = "select * from table1"
cmm.ExecuteNonQuery()
dr = cmm.ExecuteReader
While (dr.Read())
code = dr.GetString(6)
If (code.Trim() = TextBox2.Text.Trim()) Then
CheckBox1.CheckState = CheckState.Checked
End If

End While
Try
conn.Close()
Catch ex As Exception
Me.Text = ex.Message()
End Try
End Sub


البته با vb2008 این کد نوشتم پایگاه داده ام اکسس هست .

[mahdi1373]

خوب چه error ای میده؟ توی کدوم قسمت؟

[ali_najari]

دوست عزیز مشکل شما با کانکشن هست چون دیتابیس از نوع Access هست ولی شما دارید کانکشن رو از نوع SQL معرفی میکنید:

ابتدا در بالای تمام کدهاتون این کدها رو اضافه کنید:


Imports System.Data
Imports System.Data.OleDb

و بعد از کد زیر استفاده کنید:



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim conn As New OledbConnection("Provider=Microsoft.ACE.OLEDB.12.0;D ata Source=D:\\sherkat\\nagshe - info.accdb")

Dim cmm As New OledbCommand
Dim dr As OledbDataReader
Dim code As String
conn.Open()
cmm.Connection = conn

cmm.CommandText = "select * from table1"
cmm.ExecuteNonQuery()
dr = cmm.ExecuteReader
While (dr.Read())
code = dr.GetString(6)
If (code.Trim() = TextBox2.Text.Trim()) Then
CheckBox1.CheckState = CheckState.Checked
End If
End While

Try
conn.Close()
Catch ex As Exception
Me.Text = ex.Message()
End Try

End Sub

[یاشار رضایی نسب]

ali_najari ممنون جواب داد