高考问答口袋妖怪xy最帅精灵:vb.net和sql是怎么连接的.还有数据交互.谁有作品
来源：百度文库 编辑：高考问答 时间：2024/04/25 16:12:44
最好.有作品.谢谢各位了.有发到我的邮箱里.liupeng1313@163.com
Dim sqlcon As New SqlClient.SqlConnection("server=(local);database=数据库名;trusted_connection=true")
Dim sqlcmdb As New System.Data.SqlClient.SqlCommand
sqlcmdb.Connection = sqlcon
sqlcmdb.CommandType = CommandType.Text
sqlcmdb.CommandText = "insert into 成绩表( 班别, [学号], 姓名, 学期, 成绩, 课程名)values(" & "'" & t1.Text & "'" & "," & "'" & t2.Text & "'" & "," & "'" & t3.Text & "'" & "," & "'" & t4.Text & "'" & "," & "'" & t5.Text & "'" & "," & "'" & t6.Text & "'" & ")"
sqlcon.Open()
Try
sqlcmdb.ExecuteNonQuery()
Response.Redirect("ok.htm")
Catch ex As Exception
Response.Write("<script language=javascript>alert('添加失败');</script>")
Finally
sqlcon.Close()
End Try
你可以通过修改sqlcmdb.CommandText来实现其它功能