请问:VB.NET Add Record 问题

Imnotsad

1. 
   
2. Private Sub btnAddOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddOrder.Click
   
3.         
   
4.         Dim myConnectionString As String = "workstation id=YZME;packet size=4096;user id=sa;pwd=password;data source=(local);persist security info=False;initial catalog=Tracker"
   
5.       
   
6. 
   
7.         Dim myConnection As New System.Data.SqlClient.SqlConnection(myConnectionString)
   
8.         Dim CustID As String = txtCustID.Text
   
9.         Dim OrderDate As String = txtOrderDate.Text
   
10.         Dim RequireDate As String = txtRequiredDate.Text
    
11.         Dim ShippedDate As String = txtShippedDate.Text
    
12.         Dim ShipAddress As String = txtShipAddress.Text
    
13.         Dim PostCode As String = txtPostCode.Text
    
14.         Dim Country As String = txtCountry.Text
    
15. 
    
16. 
    
17.         Dim myInsertQuery As String = "INSERT INTO [Order](CustomerID,Order_Date,Required_Date,Shipped_Date,ShippedAddress,PostCode,Country)" & _
    
18.          "Values(CustID,OrderDate,RequireDate,ShippedDate,ShipAddress,PostCode,Country)"
    
19. 
    
20.         Dim myCommand As New System.Data.SqlClient.SqlCommand(myInsertQuery)
    
21.         myCommand.Connection = myConnection
    
22.         myConnection.Open()
    
23.         myCommand.ExecuteNonQuery()
    
24.         myCommand.Connection.Close()
    
25.     End Sub
    

复制代码

有办法吗？
cannot add record into database
how to solve it

goatstudio

错误讯息是什么呀?

max5007

楼主，是那里出现ERROR？

bltee

Dim myInsertQuery As String = "INSERT INTO [Order](CustomerID,Order_Date,Required_Date,Shipped_Date,ShippedAddress,PostCode,Country)" & _
         "Values(CustID,OrderDate,RequireDate,ShippedDate,ShipAddress,PostCode,Country)"


會不會是空格(SPACE)的問題？

max5007

你的FIELD OR VALUE 有放错位置吗？
它出现什么ERROR MSG？

astral

问题应该是这个
"Values(CustID,OrderDate,RequireDate,ShippedDate,ShipAddress,PostCode,Country)"

sql server只会把custID, orderdate等当成是value,而不知道那是vb.net里头的variable...
至少要把它换成类似这样:
"values('" & custID & "')"

不过最好还是用它的parameter object...
然后把statement变成
"Insert table(custID, orderDate) values(@custID, @orderDate)"

参考这里: http://msdn.microsoft.com/librar ... parameterstopic.asp

[ Last edited by astral on 16-10-2004 at 01:03 PM ]

Imnotsad

when i debug..the error say
this line got problem...i think it is not the reason

1. 
   
2. myCommand.ExecuteNonQuery()
   

复制代码

when i use , it should be no problem...

1. 
   
2. 'Dim myInsertQuery As String = "INSERT INTO [Order](CustomerID,Order_Date,Required_Date,Shipped_Date,ShippedAddress,PostCode,Country)" & _
   
3.         ' "Values('1001','5/5/2004','5/5/2004','5/5/2004','330 Seremban','70450','Malaysia')"
   

复制代码

but when i assign each one with particular

1. 
   
2. Dim CustID As String = txtCustID.Text
   
3.         Dim OrderDate As String = txtOrderDate.Text
   
4.         Dim RequireDate As String = txtRequiredDate.Text
   
5.         Dim ShippedDate As String = txtShippedDate.Text
   
6.         Dim ShipAddress As String = txtShipAddress.Text
   
7.         Dim PostCode As String = txtPostCode.Text
   
8.         Dim Country As String = txtCountry.Text
   

复制代码

maybe astral was right...but how to use parameter object...
can u show me...

max5007

try this


        OleDbConnection1.Open()
        OleDbCommand1.CommandText = _
                "INSERT INTO xxx(xxx, xxx, xxx)" & _
                "VALUES('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"
        OleDbCommand1.ExecuteNonQuery()
        OleDbConnection1.Close()



if have this problem OleDbCommand1.ExecuteNonQuery()<---- maybe is your database FIELD ERROR