我正在开发一个应用程序VB.Net
,这是我的应用程序的主要形式:
http://i.stack.imgur.com/a4KfQ.png
当我单击按钮时,我希望Ajouter
将控件中的所有信息添加到数据库中的表中。
这是表结构:
Create table Etudiant (
num_insc varchar(20) primary key,
CIN varchar(8),
sexe varchar(1),
nom_prenom varchar(30),
date_naiss date,
adresse varchar(150),
Code_niveau varchar(5)
)
这是我尝试过的代码:
Dim ds As New DataSet
Dim row As DataRow
Dim builder As SqlCommandBuilder
Dim adapter As SqlDataAdapter
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
code_niveau.Items.Add("BTS1")
code_niveau.Items.Add("BTS2")
adapter = New SqlDataAdapter("SELECT * FROM Etudiant", cn)
adapter.Fill(ds, "Etudiant")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
row = ds.Tables("Etudiant").NewRow
row(0) = num_insc.Text
row(1) = CIN.Text
If (sexe_f.Checked) Then
row(2) = sexe_f.Name
Else
row(2) = sexe_m.Name
End If
row(3) = nom_prenom.Text
row(4) = date_naiss.Value
row(5) = adresse.Text
row(6) = code_niveau.Text
ds.Tables("Etudiant").Rows.Add(row)
builder = New SqlCommandBuilder(adapter)
adapter.InsertCommand = builder.GetInsertCommand
adapter.Update(ds, "Etudiant")
End Sub
但是当我单击按钮时,Ajouter
我收到此错误消息:
字符串或二进制数据将被截断。
该语句已终止
.