VB2008 MSSQL数据库应用出现错误请高手进来解决
[img=http://b213.photo.store.qq.com/psu?/61569197-7112-44df-9fcc-adc3d18e35bc/wiZYDwtTtNtdEqmm*vVDKi5JNSwITP4irEwMOl2wTHw!/b/Yaj6An*yGQAAYvDR.X6hGgAA][/img]Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim objConnection As SqlConnection = New SqlConnection("Data Source=PC-201108290452;Initial Catalog=pubs;Integrated Security=True")
Dim objDataAdapter As New SqlDataAdapter()
Dim objDataSet As New DataSet()
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Set the SelectCommand properties...
objDataAdapter.SelectCommand = New SqlCommand()
objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "SELECT au_lname,au_fname,title,price" & " FROM authors" & "JOIN titleauthor ON authors.au_id=titleauthor.au_id" & "JOIN titles ON titleauthor.title_id=titles.title_id" & "ORDER BY au_lname,au_fname"
objDataAdapter.SelectCommand.CommandText = CommandType.Text
'Open the database connection....
objConnection.Open()
objDataAdapter.Fill(objDataSet, "authors")
'Close the database connectin....
objConnection.Close()
'Set the DataGridView properties to bind it to our data....
grdAuthorTitles.AutoGenerateColumns = True
grdAuthorTitles.DataSource = objDataSet
grdAuthorTitles.DataMember = "authors"
'clear up
objDataAdapter = Nothing
objConnection = Nothing
End Sub
End Class
我将 上面一段改为：objDataAdapter.SelectCommand.CommandText = "SELECT * FROM authors"
错误一样
求高手啊。。。。。。。
--------------------编程问答-------------------- 提示的什么错误，看不见图片。 --------------------编程问答-------------------- 程序运行到objDataAdapter.Fill(objDataSet, "authors")
错误提示：第1行："1"附近有语法错误 --------------------编程问答-------------------- 我搞定了。谢谢了 --------------------编程问答-------------------- sql拼接有问题 --------------------编程问答--------------------
补充：.NET技术 , VB.NET
