MS SQL 2005 EXPRESS 问题!!!!

迷途羔羊

我的VB.NET  query 不到database -.-''
各位朋友帮我看下! 小弟刚学VB 和MSSQL不久!

Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click



        Dim mySqlConnection As SqlConnection
        Dim mySqlCommand As SqlCommand

        mySqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\franchisee.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

        mySqlCommand = New SqlCommand( _
        " INSERT INTO franchisee (Name, Alias, Code, Contact, Gender, IC,Occupation, Email, Address,Bank,referral,Date) " & _
        " VALUES (?,?,?,?,?,?,?,?,?,?,?,?)")

        cmd.Parameters.Add(New SqlParameter("Name", txtName.Text))
        cmd.Parameters.Add(New SqlParameter("Alias", txtAlias.Text))
        cmd.Parameters.Add(New SqlParameter("Code", txtCode.Text))
        cmd.Parameters.Add(New SqlParameter("Contact", txtContact.Text))
        cmd.Parameters.Add(New SqlParameter("Gender", ComboBox1.Text))
        cmd.Parameters.Add(New SqlParameter("IC", txtIC.Text))
        cmd.Parameters.Add(New SqlParameter("Occupation", txtOccupation.Text))
        cmd.Parameters.Add(New SqlParameter("Email", txtEmail.Text))
        cmd.Parameters.Add(New SqlParameter("Address", txtAddress.Text))
        cmd.Parameters.Add(New SqlParameter("Bank", txtBank.Text))
        cmd.Parameters.Add(New SqlParameter("referral", txtReferral.Text))
        cmd.Parameters.Add(New SqlParameter("Date", DatePicker.Value))

        Try
            mySqlCommand.ExecuteNonQuery()   这里出问题! (ExecuteNonQuery : conenction property has not been initialized)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

      
    End Sub

谢谢

阿福

在
mySqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\franchisee.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

的下面加这一行

mySqlConnection.Open

把
mySqlCommand = New SqlCommand( _
        " INSERT INTO franchisee (Name, Alias, Code, Contact, Gender, IC,Occupation, Email, Address,Bank,referral,Date) " & _
        " VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"

改成
mySqlCommand = New SqlCommand( _
        " INSERT INTO franchisee (Name, Alias, Code, Contact, Gender, IC,Occupation, Email, Address,Bank,referral,Date) " & _
        " VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", mySqlConnection)


后面加了,mySqlConnection

fannwong

Dim mySqlConnection As SqlConnection
        Dim mySqlCommand As SqlCommand
        Dim strSql as String = "INSERT INTO franchisee (Name, Alias, Code, Contact, Gender, IC,Occupation, Email, Address,Bank,referral,Date) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"     
        
        mySqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\franchisee.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

        mySqlCommand = New SqlCommand(strSql,mySqlConnection)

        try
          mySqlConnection.Open()

          cmd.Parameters.Add(New SqlParameter("Name", txtName.Text))
          cmd.Parameters.Add(New SqlParameter("Alias", txtAlias.Text))
          cmd.Parameters.Add(New SqlParameter("Code", txtCode.Text))
          cmd.Parameters.Add(New SqlParameter("Contact", txtContact.Text))
          cmd.Parameters.Add(New SqlParameter("Gender", ComboBox1.Text))
          cmd.Parameters.Add(New SqlParameter("IC", txtIC.Text))
          cmd.Parameters.Add(New SqlParameter("Occupation", txtOccupation.Text))
          cmd.Parameters.Add(New SqlParameter("Email", txtEmail.Text))
          cmd.Parameters.Add(New SqlParameter("Address", txtAddress.Text))
          cmd.Parameters.Add(New SqlParameter("Bank", txtBank.Text))
          cmd.Parameters.Add(New SqlParameter("referral", txtReferral.Text))
          cmd.Parameters.Add(New SqlParameter("Date", DatePicker.Value))

          mySqlCommand.ExecuteNonQuery()

        catch ex as Exception
           MessageBox.Show(ex.Message)
        finally
           mySqlConnection.Close()
        End try