十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Const sql As String = "INSERT INTO idc (name, tel) VALUES (22,11)"
创新互联建站成立十余年来,这条路我们正越走越好,积累了技术与客户资源,形成了良好的口碑。为客户提供成都网站制作、成都网站建设、网站策划、网页设计、域名与空间、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等,这些对于网站建设都非常重要,创新互联建站通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案,携手广大客户,共同发展进步。
Const cnStr As String = "Data Source=(local);Initial Catalog=master;Integrated Security=False;User ID=sa;Password=123456;"
Dim cn As OleDbConnection = New OleDbConnection(cnStr)
Dim cmd As OleDbCommand = New OleDbCommand(sql)
cmd.ExecuteNonQuery()
'引入
Imports System.Data
Imports System.Data.SqlClient
'数据库配置
Dim sql_conn As New SqlConnection("server=ip;database=tb1;user id=sa;password=ps")
' 过程
Dim add_m As New SqlCommand
add_m.Connection = sql_conn
add_m.CommandText = "insert into tb1(t1,t2) values(@t1,@t2)"
add_m.Parameters.AddWithValue("@t1",TEXTBOX1.text)
add_m.Parameters.AddWithValue("@t2",TEXTBOX2.text)
sql_conn.Open()
add_m.ExecuteNonQuery()
sql_conn.Close()
dim
s
as
object
=
scomm.executescalar
这句scomm已经执行过了
你下面就不能判断scomm.executescalar了
而是应该判断s是不是为null如果为null就说明执行没成功。
用radiobutton来先选择要更新数据的表: 需要手工写代码,构建SQL语句了。
可以在radiobutton的 selectChanged 事件中,添加该代码。
在textbox1,textbox2中输入文字(分别为周边景点和评价)。
点击button2提交,弹出form1并更新sql表。将字段添加至sql表中新的一行。
进行相关的数据绑定操作即可,可以使用VS2005的可视化设计进行,无需手工代码。