none
ACCDB에 OPEN ERROR RRS feed

  • 질문

  • Imports System.Data.OleDb
    Imports System.Math
    Imports ADODB

    Module X_경인함수
        Dim adoConn As ADODB.Connection
        Dim adoRS As ADODB.Recordset
        Dim ConnectionString As String
        Dim dbfile, mysql, serch_id As String

        Function 온수전열계수(유속, 수속) 

            adoConn = New ADODB.Connection
            adoRS = New ADODB.Recordset
            dbfile = App_Path() & "ACCDB\경인_data.accdb"
            ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0; DATA SOURCE='" & dbfile & "'"
            adoConn.Open(ConnectionString)   '<- open 되질 않습니다.

            If adoConn.State = 1 Then
                mysql = "select * from " + "온수코일전열계수"
                adoRS.Open(mysql, adoConn)
                adoRS.MoveFirst()

    OS : WINDOWS8

    VB.NET 2012입니다.

    이 모듈은 다른 프로그램에도 사용 합니다.

    그런데 특정 프로그램에서만 ACCDB가 OPEN되지 않습니다.


    • 편집됨 박희철 2015년 11월 16일 월요일 오전 5:43
    2015년 11월 16일 월요일 오전 5:42