atabak_p
جمعه 08 خرداد 1388, 11:39 صبح
با سلام خدمت تمامی دوستان محترم
من با دستور strSql = "Select * from Ravanshenasi WHERE SH_S=" & txtDoc.Text
داده خودمو در بانک اطلاعاتی جستجو میکنم بعد از اینکه داده مورد نظر در بانک اطلاعاتی بافت شد زمانی که میخواد در اطلاعات هرکدوم از داده ها در textbox نمایش داده بشه اگه تمامی موارد موجود در بانک اطلاعاتی پر باشد بخوبی جواب میده و اگر یکی از خانه ها خالی باشه پیغام خطای InvalidCastException was unhandled رو میده و دربانک اطلاعاتی طوری تعریف کردم که فقط مقدار کلید هام نمیتونه خالی باشه حالا اگه یکی از این داده های خالی باشه چرا بقیه خانه هارو نمایش نمیده و پیغام خطا میده در ضمن کلا این قسمت کد رو براتون میزارم ممنون میشم کسی منو راهنمایی بکنه
Dim strCon As String
strCon = "Data Source=ATA-8203CDCB0FD;Initial Catalog=Asnad;Integrated Security=True"
Dim con As New SqlConnection(strCon)
con.ConnectionString = strCon
con.Open()
'-------------------------------- create command-------->>>>>>>2<<<<<
Dim strSql As String
Dim cmdsql As New SqlCommand
strSql = "Select * from Ravanshenasi WHERE SH_S=" & txtDoc.Text
cmdsql.Connection = con
cmdsql.CommandText = strSql
Dim DR As SqlDataReader
DR = cmdsql.ExecuteReader
If Not DR.HasRows = True Then
MsgBox("رکورد مورد نظر یافت نشد ", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "جستجو")
txtHsearch.Text = ""
txtpzh_pa.Text = ""
txtOHelp.Text = ""
txtResearch.Text = ""
txtyear.Text = ""
txtMak.Text = ""
Else
DR.Read()
txtHsearch.Text = DR("Title")
txtpzh_pa.Text = DR("PZH_PA")
txtOHelp.Text = DR("OSM_OSR")
txtResearch.Text = DR("Student_MH")
txtyear.Text = DR("Year")
txtMak.Text = DR("University_City")
End If
من با دستور strSql = "Select * from Ravanshenasi WHERE SH_S=" & txtDoc.Text
داده خودمو در بانک اطلاعاتی جستجو میکنم بعد از اینکه داده مورد نظر در بانک اطلاعاتی بافت شد زمانی که میخواد در اطلاعات هرکدوم از داده ها در textbox نمایش داده بشه اگه تمامی موارد موجود در بانک اطلاعاتی پر باشد بخوبی جواب میده و اگر یکی از خانه ها خالی باشه پیغام خطای InvalidCastException was unhandled رو میده و دربانک اطلاعاتی طوری تعریف کردم که فقط مقدار کلید هام نمیتونه خالی باشه حالا اگه یکی از این داده های خالی باشه چرا بقیه خانه هارو نمایش نمیده و پیغام خطا میده در ضمن کلا این قسمت کد رو براتون میزارم ممنون میشم کسی منو راهنمایی بکنه
Dim strCon As String
strCon = "Data Source=ATA-8203CDCB0FD;Initial Catalog=Asnad;Integrated Security=True"
Dim con As New SqlConnection(strCon)
con.ConnectionString = strCon
con.Open()
'-------------------------------- create command-------->>>>>>>2<<<<<
Dim strSql As String
Dim cmdsql As New SqlCommand
strSql = "Select * from Ravanshenasi WHERE SH_S=" & txtDoc.Text
cmdsql.Connection = con
cmdsql.CommandText = strSql
Dim DR As SqlDataReader
DR = cmdsql.ExecuteReader
If Not DR.HasRows = True Then
MsgBox("رکورد مورد نظر یافت نشد ", MsgBoxStyle.OkOnly + MsgBoxStyle.SystemModal, "جستجو")
txtHsearch.Text = ""
txtpzh_pa.Text = ""
txtOHelp.Text = ""
txtResearch.Text = ""
txtyear.Text = ""
txtMak.Text = ""
Else
DR.Read()
txtHsearch.Text = DR("Title")
txtpzh_pa.Text = DR("PZH_PA")
txtOHelp.Text = DR("OSM_OSR")
txtResearch.Text = DR("Student_MH")
txtyear.Text = DR("Year")
txtMak.Text = DR("University_City")
End If