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 属性只写

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

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

VB6 浏览文件和连接

VB6 Browse file and Connection

vb6