积极答复者
更新数据库出错,提示密码无效,下面是代码,请高手指教。

问题
-
数据库原先是无密码的,现在需要加上密码,所在重写了部分代码,现在有一个问题还是解决不了,数据库里有一个表是通过DataGridView控件显示用户的,数据是通过adapter填充dataset来得到,再把DataGridView邦定到数据源,这样就显示出来了,下
面是代码。
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'定义数据库文件路径
Dim Apppath As String = Application.StartupPath'获得数据库文件路径
Dim DatabasePath As String = Apppath & "\Database.accdb;"'定义连接字符串
Dim connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & DatabasePath & "jet oledb:database password=ovtrndylk;"'定义打开连接
Dim OleDbConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connstring)'打开连接
OleDbConn.Open()
Dim sqldanhao As String = "select * from 样式 "
Dim ds As DataSet = New DataSet
Dim dt As DataTable = New DataTable("样式")
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sqldanhao, OleDbConn)
'用Adapter来填充数据表Dataset.样式da.SelectCommand = New OleDb.OleDbCommand
da.SelectCommand.Connection = OleDbConn
da.SelectCommand.CommandText = sqldanhao
da.SelectCommand.CommandType = CommandType.Text'用Adapter填充dt数据表
da.Fill(Me.DatabaseDataSet.样式)'TODO: 这行代码将数据加载到表“DatabaseDataSet.样式”中。您可以根据需要移动或移除它。
'Me.样式TableAdapter.Fill(Me.DatabaseDataSet.样式)'禁用最大化控件
Me.MaximizeBox = False
End Sub
---------------------到这里以上部分都是能正确执行的,但下面就会出错,提示密码无效,下面这
个是由BindingNavigator控件自动生成的,上面是手工操作,有密码还好办,下面是自动生成,就总是提示密码无效,而最开始连
接数据库是用的visual studio2008自带的连接功能,没有手动,也是输入了密码的,可现在就是提示密码无效,不知什么原因。
Private Sub 保存SToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.样式TableAdapter.Update(DatabaseDataSet.样式)------此句就会提示密码无效。End Sub
答案
-
Hi senven7,
你是用Strong typed DataSet吧,估计要重新拖一个“样式TableAdapter”过来了,因为改了后里面一些东西最好重新生成一下。
Sincerely,
Kira Qian
Please mark the replies as answers if they help and unmark if they don't.- 已标记为答案 feiyun0112Moderator 2009年7月28日 3:00
全部回复
-
Me.样式TableAdapter的connectstring是不是没改
http://feiyun0112.cnblogs.com/ -
Hi senven7,
你是用Strong typed DataSet吧,估计要重新拖一个“样式TableAdapter”过来了,因为改了后里面一些东西最好重新生成一下。
Sincerely,
Kira Qian
Please mark the replies as answers if they help and unmark if they don't.- 已标记为答案 feiyun0112Moderator 2009年7月28日 3:00