怎么建立.udl文件啊，最好是一步一步的教我啊！！谢谢了。

Question

怎么建立.udl文件啊，最好是一步一步的教我啊！！谢谢了。

Answer 1

新建一个记事本,把后坠名.txt改成.udl就可以了

Answer 2

如果看不到扩展名,就在,我的电脑->工具->文件夹选项,修改下,

Answer 3

1、打开新的工程
2、引用“Microsoft Scripting Runtime”
3、如下代码
Private Sub Init_Udl()
    Dim fso As New FileSystemObject
    
    If (fso.FileExists(gstrCurMyDocPath & "\Default.Udl")) Then
        fso.DeleteFile gstrCurMyDocPath & "\Default.Udl", True
    End If
    
    If (fso.FileExists(gstrCurMyDocPath & "\Default.txt")) Then
        fso.DeleteFile gstrCurMyDocPath & "\Default.txt", True
    End If    Err.Clear
    
    fnum% = FreeFile    Open gstrCurMyDocPath & "\Default.txt" For Output As #fnum%
        Print #fnum, "Line1"
        Print #fnum, "Line2"
    Close fnum    fso.CopyFile gstrCurMyDocPath & "\Default.txt", gstrCurMyDocPath & "\Default.Udl", True
    Kill gstrCurMyDocPath & "\Default.txt"
End Sub