高手帮忙?

Question

如何连接远程sql-server.进行添加数据,如过不能连接数据库时,把数据保存为excel,等连通后传入ql-server中.请给出具体解决方案.最好有代码.谢谢

Answer 1

Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection
On Error GoTo acd
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=服务器IP;Initial Catalog=" & "csdb" & ";User Id=sa;Password=1234"
gDBConnect.Open
Exit Sub
acd:
'连接失败,在这里处理把数据保存为excelEnd Sub

Answer 2

在本地放一个ACCESS数据库来存放临时数据不是更方便吗?