alinux031
دوشنبه 11 شهریور 1392, 22:57 عصر
سلام من می خواهم تعداد رکوردهایی که فیلد نوع نامه ی آنها از یک نوع است را با دستور اس کیو ال بدست بیاورم مثلا اگر نامه صادره از نوع "نامه های دستی"باشد و تا حالا 5 تا از این نامه ها ثبت شده است این عدد باید بدست آید برای این کار دستور زیر را نوشتم در این دستور combobox1.text نوع نامه ی صادره را مشخص می کند ولی کدی که نوشتم با زبان فارسی در شرط مشکل دارد یعنی وقتی نوع نامه صادره با زبان انگلیسی باشد کوئری درست عمل می کند ولی هنگامی که قرار است رشته فارسی را مقایسه کند مقدار صفر را برمی گرداند لطفا راهنماییم کنید. ممنون:تشویق::تشویق:
Dim connstring As String
connstring = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\khatam.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
sqlstr = "SELECT COUNT(*) FROM (SELECT * FROM sletter ) rt"
Dim sqlstr3 As String
sqlstr3 = "SELECT COUNT(*) FROM (SELECT * FROM sletter where (sletter_type = '" & ComboBox1.Text & "') ) rt"
sqlstr2 = "SELECT COUNT(*) FROM (SELECT * FROM letter1 where (letter_id like '90') ) rt"
Dim SQLConn As New SqlConnection() 'The SQL Connection
Dim SQLCmd As New SqlCommand() 'The SQL Command
SQLConn.ConnectionString = connstring 'Set the Connection String
SQLConn.Open() 'Open the connection
SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
SQLCmd.CommandText = sqlstr 'Sets the SQL String
Label1.Text = SQLCmd.ExecuteScalar().ToString()
SQLCmd.CommandText = sqlstr3
txt_test.Text = pre & "قم/" & SQLCmd.ExecuteScalar().ToString()
End Sub
End Class
Dim connstring As String
connstring = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\khatam.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
sqlstr = "SELECT COUNT(*) FROM (SELECT * FROM sletter ) rt"
Dim sqlstr3 As String
sqlstr3 = "SELECT COUNT(*) FROM (SELECT * FROM sletter where (sletter_type = '" & ComboBox1.Text & "') ) rt"
sqlstr2 = "SELECT COUNT(*) FROM (SELECT * FROM letter1 where (letter_id like '90') ) rt"
Dim SQLConn As New SqlConnection() 'The SQL Connection
Dim SQLCmd As New SqlCommand() 'The SQL Command
SQLConn.ConnectionString = connstring 'Set the Connection String
SQLConn.Open() 'Open the connection
SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
SQLCmd.CommandText = sqlstr 'Sets the SQL String
Label1.Text = SQLCmd.ExecuteScalar().ToString()
SQLCmd.CommandText = sqlstr3
txt_test.Text = pre & "قم/" & SQLCmd.ExecuteScalar().ToString()
End Sub
End Class