高手指导狂战加点,奇怪的连接问题,修改了一个窗体的连接,其他的窗体的连接也变了,请高手指导?

奇怪的连接问题,修改了一个窗体的连接,其他的窗体的连接也变了,请高手指导? - 故障解答 - 电脑教程网

奇怪的连接问题,修改了一个窗体的连接,其他的窗体的连接也变了,请高手指导?

日期:2006-11-04   荐:
奇怪的连接问题,修改了一个窗体的连接,其他的窗体的连接也变了,请高手指导?我的目的是根据openfiledialog返回的路径,连接到相应的表,但并不希望它改变其他的连接,但是在这个窗体关闭后,其他窗体的连接也变了,怎么回事,望高手解答。我的其他窗体的连接用的是相对路径,改成绝对路径后正常,为什么?下面的connstr我该成固定的路径,没有把 OpenFileDialog1.FileName加入到connstr,但是只要openfiledialog打开后,其他窗体的连接路径还是变,这又是为什么,郁闷了两天了,再次谢谢高手解答。Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim connstr As String Dim myconnection As New OleDb.OleDbConnection Dim commd As New OleDb.OleDbCommand Dim commdtemp As OleDb.OleDbCommand Dim DbReader As OleDb.OleDbDataReader Dim dbrow As Data.DataRow Dim openfiledialog1 As New OpenFileDialog OpenFileDialog1.Multiselect = False OpenFileDialog1.Filter = "Excel电子表格|*.xls" If OpenFileDialog1.ShowDialog() = DialogResult.OK Then connstr="provider=Microsoft.Jet.OLEDB.4.0; " & _ "data source=" & _ OpenFileDialog1.FileName & _ ";Extended Properties=Excel 8.0;" myconnection.ConnectionString = connstr commd.CommandType = CommandType.Text commd.CommandText = ' "select * from [Sheet1$]" commd.Connection = myconnection PosDataset1.Tables("经销商库存信息").Clear() myconnection.Open() DbReader = commd.ExecuteReader While DbReader.Read() dbrow = PosDataset1.Tables("经销商库存信息").NewRow dbrow.Item("经销商") = DbReader.Item("经销商") dbrow.Item("品牌") = DbReader.Item("品牌") dbrow.Item("系列") = DbReader.Item("系列") dbrow.Item("款号") = DbReader.Item("款号") dbrow.Item("货品编号") = DbReader.Item("货品编号") dbrow.Item("货品名称") = DbReader.Item("货品名称") dbrow.Item("条码") = DbReader.Item("条码") dbrow.Item("颜色") = DbReader.Item("颜色") dbrow.Item("尺码") = DbReader.Item("尺码") dbrow.Item("最后入库日期") = DbReader.Item("最后入库日期") dbrow.Item("数量") = DbReader.Item("数量") dbrow.Item("备注") = DbReader.Item("备注") PosDataset1.Tables("经销商库存信息").Rows.Add(dbrow) End While myconnection.Close() DbReader.Close()End IfEnd Sub问题比较神奇自己up自己up怎么没人回呀,分不够再加,自己再顶一下。
标签: