Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sqlcon As Data.SqlClient.SqlConnection
        Dim sqlCom As Data.SqlClient.SqlCommand
        Dim ds As Data.DataSet
        ds = New Data.DataSet()
        sqlcon = New Data.SqlClient.SqlConnection("Data Source=****;Initial Catalog=sq_bshq;Persist Security Info=True;User ID=***;Password=***")
        sqlcon.Open()
        sqlCom = New Data.SqlClient.SqlCommand("selete * from man", sqlcon)
        Dim sda As Data.SqlClient.SqlDataAdapter
        sda = New Data.SqlClient.SqlDataAdapter()
        sda.SelectCommand = sqlCom
        sda.Fill(ds, "cxd")-----------提示这里语法错误！怎么解决？
        Console.WriteLine(ds.Tables("cxd").Rows(0)(0))
End Sub

class1.vb中怎么写可以把Data.SqlClient.SqlConnection写成SqlConnection?
新手上路，请多指教

怎么是VB的？

问VB板块的大哥们啊

不检查了.自己看吧
Dim conn As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=DBTest;Integrated Security=True")
        conn.Open()
        Dim sql As String = "insert into UserID(UserName,UserAccount,UserAge,UserSex) values('" & uname & "','" & uaccount & "'," & uage & ",'" & usex & "')"
        Dim ssql As String = " SQL语句"

        Dim cmd As SqlCommand = New SqlCommand(sql, conn)
         = CommandType.Text
        cmd.ExecuteNonQuery()

        '获取最新插入的ID号
        Dim scmd As SqlCommand = New SqlCommand(ssql, conn)
        Dim ds As DataSet =New DataSet()
        Dim adapter As SqlDataAdapter = New SqlDataAdapter()
        adapter.SelectCommand = scmd
        adapter.Fill(ds)

[[it] 本帖最后由 luoweihua7 于 2008-8-22 15:56 编辑 [/it]]