我用代码创造了一个新的数据源,一直报我的语法有错误,但我一直没找到语法错误该怎么去改,请各位大佬帮忙看看,解决一下
代码如下:
Imports System.Data
Imports System.Data.SqlClient '设置ADO.NET数据名称控件
Public Class Form1 Dim sqlcn As SqlConnection '定义SqlConnection对象sqlcn Dim sqlcmd As SqlCommand '定义SqlCommand对象sqlcmd Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sqlcn = New SqlConnection() '初始化连接对象 sqlcn.ConnectionString = "server=localhost;database=Book1;User ID=sa;Password=wjl18190283604" '连接字符串 sqlcn.Open() '打开连接 Dim dsBK As New SqlDataAdapter() '生成数据适配器对象 dsBK.SelectCommand = New SqlCommand() dsBK.SelectCommand.Connection = sqlcn dsBK.SelectCommand.CommandText = "Select BookName AS 书名,Price AS 价格, Publisher AS 出版社 From T_BookInfo,T_Publisher where T_BookInfo.PublisherCode= T_Publisher.PublisheCode And BookName Like '%TextBox1.Text' OR BookName Like '%TextBox1.Text%' ORBookName Like '%TextBox1.Text%'" '设置查询字符串 Dim Bk As New DataSet() dsBK.Fill(Bk, "Bk_info") '进行数据填充 DataGridView1.DataSource = Bk '设置表格对象的数据源 DataGridView1.DataMember = "Bk_info" '设置表格数据源所用的表 sqlcn.Close() End Sub
End Class
代码如下:
Imports System.Data
Imports System.Data.SqlClient '设置ADO.NET数据名称控件
Public Class Form1 Dim sqlcn As SqlConnection '定义SqlConnection对象sqlcn Dim sqlcmd As SqlCommand '定义SqlCommand对象sqlcmd Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click sqlcn = New SqlConnection() '初始化连接对象 sqlcn.ConnectionString = "server=localhost;database=Book1;User ID=sa;Password=wjl18190283604" '连接字符串 sqlcn.Open() '打开连接 Dim dsBK As New SqlDataAdapter() '生成数据适配器对象 dsBK.SelectCommand = New SqlCommand() dsBK.SelectCommand.Connection = sqlcn dsBK.SelectCommand.CommandText = "Select BookName AS 书名,Price AS 价格, Publisher AS 出版社 From T_BookInfo,T_Publisher where T_BookInfo.PublisherCode= T_Publisher.PublisheCode And BookName Like '%TextBox1.Text' OR BookName Like '%TextBox1.Text%' ORBookName Like '%TextBox1.Text%'" '设置查询字符串 Dim Bk As New DataSet() dsBK.Fill(Bk, "Bk_info") '进行数据填充 DataGridView1.DataSource = Bk '设置表格对象的数据源 DataGridView1.DataMember = "Bk_info" '设置表格数据源所用的表 sqlcn.Close() End Sub
End Class