2016-04-09 19 views
0

VB'den veritabanına bağlanmak için kodumu geliştirmem gerekiyor, yine de "ConnectionString özelliği başlatılmamış" önerisini saklı tutmasına izin vermez. Eğer bağlantı dizesini tanımlayan ancak OleDbConnection nesnesi ile ilişkilendirerek değildirConnectionString özelliği başlatılmadı

provider = "Provider=Microsoft.Jet.OLEDB.12.0; Data Source=" 
    dataFile = "J:\Database511_be.accdb" 
    myConnection.ConnectionString = connString 
    myConnection.Open()>>>>>THIS IS THE SECTION THAT BUGS ME, IT WOULDN'T CONNECT TO THE DATABASE 
    Dim str As String 


    str = "Insert INTO CUSTOMER_DATABASE([Items],[Pizza Size],[Quantity],[Table Number], [Total]) Values (?,?,?,?)" 
    Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection) 

    cmd.Parameters.Add(New OleDbParameter("Items", CType(TextBox3.Text, String))) 
    cmd.Parameters.Add(New OleDbParameter("Pizza Size", CType(TextBox4.Text, String))) 
    cmd.Parameters.Add(New OleDbParameter("Quantity", CType(TextBox5.Text, String))) 
    cmd.Parameters.Add(New OleDbParameter("Table Number", CType(ListBox4.Text, String))) 
    cmd.Parameters.Add(New OleDbParameter("Total", CType(TextBox8.Text, String))) 

    Try 

     cmd.ExecuteNonQuery() 
     cmd.Dispose() 
     myConnection.Close() 
     TextBox3.Clear() 
     TextBox4.Clear() 
     TextBox5.Clear() 
     TextBox8.Clear() 

    Catch ex As System.Exception 


    End Try 
+0

ben 'Entegre Security' bir SQL Server ayarı olduğundan eminim. Başka bir DB ops'ınız varsa "mükemmel çalışıyor" neden bu bağlantı dizesini bu yönteme kopyalamıyorsunuz? Bir sonraki hata, bu SQL dizesi ile ilgili olacaktır. Bkz: http://www.connectionstrings.com/ – Plutonix

+0

connString sağlayıcınız ve dataFile değişkenlerini göz ardı ediyor gibi görünüyor. – LarsTech

+0

Görüyorum! yani connString'i silmem gerek? –

cevap

1

MessageBox.Show ("Sipariş gönderildi"). Bunu yapmak istiyorum:

Dim connection As New OleDbConnection(connString) 

veya daha da iyisi

Using connection As New OleDbConnection(connString) 
    connection.Open() 
    ' ... do stuff with the open connection 
End Using 
+0

hala veritabanına bağlanamadı. –

İlgili konular