ali_t264
پنج شنبه 18 خرداد 1385, 23:20 عصر
سلام
من می خوام در ازتباط با یه بانک اطلاعاتی sqlیه دکمه طراحی کنم که اطلاعات رو بشه با اون به دیتا بیس وارد کرد
کد من به این شکله:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim scnn As String = "server=alit;initial catalog=ali;integrated security=false"
Dim myds As DataSet = New DataSet("mydataset")
Dim mydataadapter As SqlDataAdapter = New SqlDataAdapter("select * from ali ", scnn)
Try
mydataadapter.InsertCommand.CommandText = "insert into ali(stid,fname,lname) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
mydataadapter.InsertCommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show("error" & vbCrLf & ex.Message)
End Try
End Sub
اما موقع اجرا اشکال می گیره
ممکنه دوستان کمک کنند و اشکال این کد رو به من بگند؟
ممنون می شم
من می خوام در ازتباط با یه بانک اطلاعاتی sqlیه دکمه طراحی کنم که اطلاعات رو بشه با اون به دیتا بیس وارد کرد
کد من به این شکله:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim scnn As String = "server=alit;initial catalog=ali;integrated security=false"
Dim myds As DataSet = New DataSet("mydataset")
Dim mydataadapter As SqlDataAdapter = New SqlDataAdapter("select * from ali ", scnn)
Try
mydataadapter.InsertCommand.CommandText = "insert into ali(stid,fname,lname) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
mydataadapter.InsertCommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show("error" & vbCrLf & ex.Message)
End Try
End Sub
اما موقع اجرا اشکال می گیره
ممکنه دوستان کمک کنند و اشکال این کد رو به من بگند؟
ممنون می شم