小弟我下面的代码有关问题是：可以连接到局域网内数据库，但是如何不能向数据库添加记录，运行是也没有任何提示，请大侠帮帮小弟我，小弟我一定给分
求助 我下面的代码问题是：可以连接到局域网内数据库，但是怎么不能向数据库添加记录，运行是也没有任何提示，请大侠帮帮我，我一定给分
Dim strConnect As String = "data source=server;Connect timeout=100;initial catalog=评估业务管理;user id=;password=; "
sqlConnection1 = New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.Open()
Dim sqlStr As String = "INSERT INTO [评估业务管理 ].[dbo].[立项表] ([项目名称] ,[项目编号])VALUES( " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
'Dim sqlStr As String = "insert into 立项表(项目名称,项目编号) value ( ' " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
Dim cmd As New SqlCommand
cmd = New SqlCommand(sqlStr, sqlConnection1)
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
MsgBox( "记录添加完成 ")
sqlConnection1.Close()
------解决方案--------------------
楼主的问题没有遇到过阿。帮顶下，
可能是数据库的权限开的不够吗？
------解决方案--------------------
你先把
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
变成
cmd.ExecuteNonQuery()
看看会不会出什么提示
------解决方案--------------------
Dim sqlStr As String = "INSERT INTO [评估业务管理 ].[dbo].[立项表] ([项目名称] ,[项目编号])VALUES( " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
这一句语法有误,应该为：
Dim sqlStr As String = "INSERT INTO [评估业务管理 ].[dbo].[立项表] ([项目名称] ,[项目编号])VALUES( ' " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
看看行不行？
------解决方案--------------------
1.参考一下我的连接字符串:
Private Function InitConnection() As Boolean
MyClass.Close()
Try
_SqlConn = New SqlClient.SqlConnection
_SqlConn.ConnectionString = "Server=10.170.1.112;Database=MyDataBase;Uid=KGB;Pwd=KGBKGB;Connect Timeout=5 "
_SqlConn.Open()
_State = ConnectionState.Open
Return True
Catch e As Exception
_ErrMsg = e.Message
MyClass.Close()
Return False
End Try
End Function
2.另外参考看看调用方法
Dim blnRtn As Boolean = False
Dim sqlCmd As New SqlClient.SqlCommand
sqlCmd.Connection = _SqlConn
sqlCmd.CommandText = "这里写你的SQL语句,内部引号要用单引号 "
Dim strConnect As String = "data source=server;Connect timeout=100;initial catalog=评估业务管理;user id=;password=; "
sqlConnection1 = New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.Open()
Dim sqlStr As String = "INSERT INTO [评估业务管理 ].[dbo].[立项表] ([项目名称] ,[项目编号])VALUES( " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
'Dim sqlStr As String = "insert into 立项表(项目名称,项目编号) value ( ' " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
Dim cmd As New SqlCommand
cmd = New SqlCommand(sqlStr, sqlConnection1)
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
MsgBox( "记录添加完成 ")
sqlConnection1.Close()
------解决方案--------------------
楼主的问题没有遇到过阿。帮顶下，
可能是数据库的权限开的不够吗？
------解决方案--------------------
你先把
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
变成
cmd.ExecuteNonQuery()
看看会不会出什么提示
------解决方案--------------------
Dim sqlStr As String = "INSERT INTO [评估业务管理 ].[dbo].[立项表] ([项目名称] ,[项目编号])VALUES( " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
这一句语法有误,应该为：
Dim sqlStr As String = "INSERT INTO [评估业务管理 ].[dbo].[立项表] ([项目名称] ,[项目编号])VALUES( ' " + TextBox1.Text + " ', ' " + TextBox2.Text + " ') "
看看行不行？
------解决方案--------------------
1.参考一下我的连接字符串:
Private Function InitConnection() As Boolean
MyClass.Close()
Try
_SqlConn = New SqlClient.SqlConnection
_SqlConn.ConnectionString = "Server=10.170.1.112;Database=MyDataBase;Uid=KGB;Pwd=KGBKGB;Connect Timeout=5 "
_SqlConn.Open()
_State = ConnectionState.Open
Return True
Catch e As Exception
_ErrMsg = e.Message
MyClass.Close()
Return False
End Try
End Function
2.另外参考看看调用方法
Dim blnRtn As Boolean = False
Dim sqlCmd As New SqlClient.SqlCommand
sqlCmd.Connection = _SqlConn
sqlCmd.CommandText = "这里写你的SQL语句,内部引号要用单引号 "