vb6 - VB6 浏览文件和连接

Question

我想浏览文件并作为新连接上传

     Private Sub BrowseBtn_Click()  

     CommonDialog1.ShowOpen
     Text1.Text = CommonDialog1.FileName

      End Sub

      Private Sub ConnectionBtn_Click()
      If con.State = 1 Then
      con.Close
      End If
      Set con = New ADODB.Connection
      con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & CommonDialog1

      End Sub

错误 394 属性只写

标签： vb6

Answer 1

CommonDialog1 是一个 COM 组件。使用它的属性。

  con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & CommonDialog1.FileName

或者

  con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Text1.Text

既然你已经得到了它的价值