主题：有问:如何动态创建外部数据源

设置动态外部数据源

Dim str1 As String

'调试时,先使用本地的Access数据库作外部数据源,正式使用时,再修改。

str1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False"  '按实际情况编写

Dim Conn As New Data.Oledb.OledbConnection(Str1)

Try

    conn.Open

    messagebox.show("数据库连接成功")

    conn.Close

    Catch

    messagebox.show("情数据库连接失败")

    

End Try

If Connections.Contains("testdb")=False Then

    

    Connections.Add("testdb",str1)

    

    MessageBox.Show("数据源添加成功.")

Else

    MessageBox.Show("系统已有数据源!本次不需要再添加.")

    

End If

<!--EndFragment-->