(2)、ODBC的设置：在客户机上进入Windows的控制面板( Control panel )。双击ODBC数据源（32位）图标，进行数据库的ODBC驱动设置。在用户DSN下，按“添加”，选择SQL Server,在名称输入”sql1”，服务器输入”sqlserver1”，用户名输入”sa”,口令输入”123456”,测试是否连通。
(3)、在Visual Basic建立一工程，添加“引用”Microsoft ActiveXData Objects2.1 Library和Microsoft DAO 3.51 object library。在Form1上建一个Command1,将Command1的Caption改为转换。程序清单如下：
Private Sub Command1_Click() Dim db As Database Dim tb As Recordset ‘打开C:examp1.dbf Set db=OpenDatabase(c:,False,False,”foxpro 2.5”) Set tb=db.OpenRecordset(examp1)
Dim conn1 As ADODB.Connection Dim cmd1 As ADODB.Command
Set conn1=New ADODB.Connection Set cmd1=New ADODB.Command
cons1=”ODBC;DATABASE=sqlexample;UID=sa;PWD=123456;DSN=sql1” conn1.Open cons1 Set cmd1.ActiveConnection=conn1 Do while not tb.EOF Cmds1=”insert into example1 values(‘“& tb.Fields(0) &”’,‘“& tb.Fields(1) &”’)” cmd1.CommandText=cmds1 cmd1.Execute tb.MoveNext Loop
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
