[VB] SQL Server 연결 구하기

▶ SQL Server 연결 구하기 예제

Dim pConnection As ADODB.Connection

Set pConnection = GetSQLServerConnection("127.0.0.1", "testdb", "sa", "1234")

 

▶ SQL Server 연결 구하기

Public Function GetSQLServerConnection(strDataSource As String, strInitialCatalog As String, strUserID As String, strPassword As String) As ADODB.Connection

    Dim pConnection         As ADODB.Connection
    Dim strConnectionString As String

    Set GetSQLServerConnection = Nothing

    On Error GoTo ErrorLabel

    Set pConnection = New ADODB.Connection

    strConnectionString = "Provider=SQLOLEDB.1;Data Source=" + strDataSource + ";Initial Catalog=" + strInitialCatalog + ";User ID=" + strUserID + ";Password=" + strPassword + ";Persist Security Info=True"

    pConnection.Open strConnectionString

    On Error GoTo 0

    Set GetSQLServerConnection = pConnection

    Exit Function

ErrorLabel:

End Function
                    
        

  

    
728x90
    
    
  


  

    
반응형
    
    
    
  


  

    
그리드형(광고전용)
    

      
    
  

        

                                        

  



  


  




                            
        

  

    

      
카카오스토리
      
트위터
      
페이스북
    
  
  



        

                    

  
'VB' 카테고리의 다른 글
  

    

      
[VB] 비주얼 베이직 환경을 MDI 환경에서 SDI 환경으로 설정하기  (0)
      
2015.05.17
    
    

      
[VB] IDE 마우스 휠 스크롤 오류 수정하기  (0)
      
2015.05.16
    
    

      
[VB] 텍스트 파일 읽기  (0)
      
2015.05.16
    
    

      
[VB] DO UNTIL ~ EXIT DO ~ LOOP문 사용하기  (0)
      
2015.05.16
    
    

      
[VB] SQL Server 연결 구하기 (윈도우즈 인증)  (0)
      
2015.05.16
    
    

      
[VB] UBOUND 함수를 사용해 배열 상한 인덱스 구하기  (0)
      
2015.05.16
    
    

      
[VB] 법인등록번호 검증하기  (0)
      
2015.05.16
    
    

      
[VB] 폼 배경에 바탕 화면 이미지 보여주기  (0)
      
2015.05.16
    
    

      
[VB] 단축 아이콘 만들기  (0)
      
2015.05.16
    
    

      
[VB] 메시지 박스 일정 시간 경과 후 닫기  (0)
      
2015.05.16