m_zamani
چهارشنبه 16 اسفند 1385, 15:32 عصر
Private Sub insert()
Dim cmh As SqlClient.SqlCommand
Try
Dim strsqlo As String
strsqlo = " INSERT INTO hamrah (nameh,familyh,per_fa,per_no,nesbat,room_noh) VALUES (N'" & na_h.Text & "',N'" & fa_h.Text & "',N'" & per_f.Text & "',N'" & per_n.Text & "',N'" & nes.Text & "',N'" & ro_no.Text & "'"
cmh = New SqlClient.SqlCommand(strsqlo, con)
cmh.ExecuteNonQuery()
MsgBox(" £ ¢ ¬§.")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
End Try
End Sub
اشکال این کد چیه؟
Dim cmh As SqlClient.SqlCommand
Try
Dim strsqlo As String
strsqlo = " INSERT INTO hamrah (nameh,familyh,per_fa,per_no,nesbat,room_noh) VALUES (N'" & na_h.Text & "',N'" & fa_h.Text & "',N'" & per_f.Text & "',N'" & per_n.Text & "',N'" & nes.Text & "',N'" & ro_no.Text & "'"
cmh = New SqlClient.SqlCommand(strsqlo, con)
cmh.ExecuteNonQuery()
MsgBox(" £ ¢ ¬§.")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
End Try
End Sub
اشکال این کد چیه؟