vb.net에서 두 테이블에 삽입하는 방법

Question

두 개의 값을 내가 만든 SQL 데이터베이스의 두 테이블에 삽입하고 싶습니다. 내 vb.net 코드에서 내 문제는 만약 내가 그것을 insterted하지만 하나의 테이블에 때로는 안으로 들어가고있어 삽입 삽입 할 수 있습니다. 당신은 실제로 하나의 명령에 할, 심지어이 같은 거래에 포장 할 수

c = TextBox1.Text 
    sh = TextBox2.Text 
    ph = Val(TextBox3.Text) 
    ad = RichTextBox1.Text 
    ob = Val(TextBox4.Text) 
    con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\SHOPPROJECT\SHOPPROJECT\shop.mdf;Integrated Security=True;User Instance=True") 
    con.Open() 

    str1 = " INSERT INTO CUSTOMER VALUES('" & c & " ' , '" & sh & "' ," & ph & ",'" & ad & "' ,'" & TextBox5.Text & "') " 

    str2 = "INSERT INTO BALANCE VALUES ('" & c & "', " & ob & ")" 

    cmd = New SqlCommand 

    cmd.Connection = con 
    cmd.CommandType = CommandType.Text 
    cmd.CommandText = str1 
    cmd.ExecuteNonQuery() 
    cmd.CommandText = str2 
    cmd.ExecuteNonQuery() 
    MsgBox("ITEM IS INSERTED", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "CUSTOMER ADDED") 
    TextBox1.Clear() 
    TextBox2.Clear() 
    TextBox3.Clear() 
    TextBox4.Clear() 
    TextBox5.Clear() 
    RichTextBox1.Clear() 

Answer 1

: 당신이 필요

str1 = "begin tran; " 
str1 &= "INSERT INTO CUSTOMER VALUES('" & c & " ' , '" & sh & "' ," & ph & ",'" & ad & "' ,'" & TextBox5.Text & "'); " 
str1 &= "INSERT INTO BALANCE VALUES ('" & c & "', " & ob & "); " 
str1 &= "commit tran; " 

cmd = New SqlCommand 
cmd.Connection = con 
cmd.CommandType = CommandType.Text 
cmd.CommandText = str1 
cmd.ExecuteNonQuery() 

다음 여기

내가 사용했던 내 코드입니다 try/catch를 사용하여 SqlServerException에 무엇이 잘못되었는지 확인하십시오. 다음과 같이 입력하십시오 :

또한 SQL 주입시 읽습니다.

Answer 2

다른 문자열 변수를 사용하여 값을 삽입 할 필요가 없습니다. 당신은 이런 식으로 작업을 수행 할 수 있습니다

str1 = " INSERT INTO CUSTOMER VALUES('" & c & " ' , '" & sh & "' ," & ph & ",'" & ad & "' ,'" & TextBox5.Text & "');" 
str1 & = "INSERT INTO BALANCE VALUES ('" & c & "', " & ob & ")" 

cmd = New SqlCommand 

    cmd.Connection = con 
    cmd.CommandType = CommandType.Text 
    cmd.CommandText = str1 
    cmd.ExecuteNonQuery()