vs2010 怎样编写查询语句 输入查询条件, 不要上sql语句我会,但是不会在vb2010里的语法表达!!!!!
千万别给我来select*fromdddwherea=查询条件的此类回答啊,这个在vb2010就是语法错误!!!!!麻烦大神给予明示,语言参考手册查了n个,vb210从入...
千万别给我来 select * from ddd where a=查询条件的此类回答啊,这个在vb2010 就是语法错误!!!!!
麻烦大神给予明示,语言参考手册查了n个,vb210从入门到精通看了n版,就是找不到这句话该怎么写!
Dim emp As Employee = (From employee In managerBindingSource.OfType(Of Employee)() _
Where employee.ToString() = s _
Select employee).FirstOrDefault()
类似这样的 我照猫画虎也不对!郁闷透顶中,2010和vb6差异太大。我的数据库完整描述:数据库名shuju ,表名 ddd, 字段假设就三个 a b c ,在窗体画个文本框,输入个数值就出结果在数据表中,就是Datagirdview显示查询结果。
对了 ,外围环境的语法麻烦也写一下啊,高手大神们跪求完美解答啊!!!! 展开
麻烦大神给予明示,语言参考手册查了n个,vb210从入门到精通看了n版,就是找不到这句话该怎么写!
Dim emp As Employee = (From employee In managerBindingSource.OfType(Of Employee)() _
Where employee.ToString() = s _
Select employee).FirstOrDefault()
类似这样的 我照猫画虎也不对!郁闷透顶中,2010和vb6差异太大。我的数据库完整描述:数据库名shuju ,表名 ddd, 字段假设就三个 a b c ,在窗体画个文本框,输入个数值就出结果在数据表中,就是Datagirdview显示查询结果。
对了 ,外围环境的语法麻烦也写一下啊,高手大神们跪求完美解答啊!!!! 展开
1个回答
展开全部
'IDE vs2013 ( 08 05 10等等都一样)
'sqlserver 2012
'窗体 Form1
'文本 TextBox1
'数据 DataGridView1
'事件 TextBox1_TextChanged
'-----------------------测试通过
Imports System.Data.SqlClient
Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim cnn As SqlConnection
cnn = New SqlConnection("Data Source=(localdb)\Projects;Initial Catalog=你的库;Integrated Security=True;Encrypt=False;TrustServerCertificate=False")
Dim cmd As SqlCommand
cmd = New SqlCommand("select * from 你的表 where 你的列=" + TextBox1.Text, cnn)
Dim dr As SqlDataReader
Try
cnn.Open()
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Dim bs As New BindingSource()
bs.DataSource = dr
DataGridView1.DataSource = bs
DataGridView1.AutoGenerateColumns = True
Catch ex As Exception
MsgBox(ex.Message)
Finally
cnn.Close()
cnn.Dispose()
End Try
End Sub
End Class
p.s. 建议vb210从入门到精通的n版 仔细看看。压根没理解啊,能让数据库处理的查询最好
写查询或存储过程让数据库处理,不要把数据都拿来让程序处理。要专业数据库干嘛的,谁
效率高还用考虑吗。
'sqlserver 2012
'窗体 Form1
'文本 TextBox1
'数据 DataGridView1
'事件 TextBox1_TextChanged
'-----------------------测试通过
Imports System.Data.SqlClient
Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim cnn As SqlConnection
cnn = New SqlConnection("Data Source=(localdb)\Projects;Initial Catalog=你的库;Integrated Security=True;Encrypt=False;TrustServerCertificate=False")
Dim cmd As SqlCommand
cmd = New SqlCommand("select * from 你的表 where 你的列=" + TextBox1.Text, cnn)
Dim dr As SqlDataReader
Try
cnn.Open()
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Dim bs As New BindingSource()
bs.DataSource = dr
DataGridView1.DataSource = bs
DataGridView1.AutoGenerateColumns = True
Catch ex As Exception
MsgBox(ex.Message)
Finally
cnn.Close()
cnn.Dispose()
End Try
End Sub
End Class
p.s. 建议vb210从入门到精通的n版 仔细看看。压根没理解啊,能让数据库处理的查询最好
写查询或存储过程让数据库处理,不要把数据都拿来让程序处理。要专业数据库干嘛的,谁
效率高还用考虑吗。
追问
你是用textbox的变化直接在数据表中动态显示查询结果,我把你给的代码复制过去之后,把表名和字段替代以后执行就死了,不知道是什么地方的错误,用调试也没有反馈错误信息。
cmd = New SqlCommand("select * from kb.kes where 序号=" + TextBox1.Text, cnn)
别的地方我都没动
追答
应该是没有连接到数据库。这个连接字串cnn = New SqlConnection("Data Source=(localdb)\Projects;Initial Catalog=你的库;Integrated Security=True;Encrypt=False;TrustServerCertificate=False")
没设置超时时间,应该是等数据库返回 消息呢。
你先检查下连接字串,我是连接mssql2012的。
还有可以
你把try去了再执行看看能不能直接报错
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询