回 帖 发 新 帖 刷新版面

主题:在关键字 'from' 附近有语法错误。


Imports system.data

Imports System.Data.SqlClient


Public Class form1
    Dim objconnection As New SqlConnection _
    ("server=WWW-CEC16011BD3;database=1;user id=sa;password=4596705;")

    Dim objDataAdapter As New SqlDataAdapter( _
    "select 11.A,B,C,D, FROM 1", objconnection)
    Dim objdataset As DataSet
    Dim objdataview As DataView
    Dim objcurrencyManager As CurrencyManager
    Private Sub fillDataAndView()
        objdataset = New DataSet
        objDataAdapter.Fill(objdataset, "11")\\\\在这句这里出现"FROM"附近有语法错误的提示.
        objdataview = New DataView(objdataset.Tables("11"))
        objcurrencyManager = CType(Me.BindingContext(objdataview), CurrencyManager)
    End Sub
    Private Sub bindings()
        txt1.DataBindings.Clear()
        txt2.DataBindings.Clear()
        txt3.DataBindings.Clear()
        txt4.DataBindings.Clear()
        txt1.DataBindings.Add("text", objdataview, "A")
        txt2.DataBindings.Add("text", objdataview, "B")
        txt3.DataBindings.Add("text", objdataview, "C")
        txt4.DataBindings.Add("text", objdataview, "D")
    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fillDataAndView()

        bindings()

    End Sub
End Class

\\\\提示11是数据表 ,1是数据库.

回复列表 (共2个回复)

沙发

select [11].A,B,C,D FROM [11]

板凳

建议你将fillDataAndView()过程,Sub bindings()过程写在窗体Load过程的下面!再试下

我来回复

您尚未登录,请登录后再回复。点此登录或注册