none
ADO ACCDB에 넣기(쓰기) 변수를 RRS feed

  • 질문

  • ADO방식 읽기는 되는데 쓰기는 어떻게 하나요
    알려 주십시오

    Imports ADODB
    Imports System.Data.OleDb
    Imports System

    Module fan_data

        Private StrSQL As String = "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=cSSO3sEEhrM4vY3je0qC;"

    &   "Data Source =" & App_Path() & "\ACCDB\fan_data.accdb"
    private Sub FAN_DIM_DATA()

            Dim Fan_Data(0 To 30)
            Dim Conn = New OleDbConnection(StrSQL)
            Conn.Open()

            '-------------------------------------------------------------------------------
            Dim comm = New OleDbCommand("SELECT * FROM fan_dim", Conn)
            Dim MyRead = comm.ExecuteReader() '읽기
            Dim idcounter As Integer = 0

            While MyRead.Read
                'accdb을 읽고  변수에 넣기
                Fan_Data(0) = MyRead.GetValue(0).ToString() 'id
                Fan_Data(1) = MyRead.GetValue(1).ToString()
                Fan_Data(2) = MyRead.GetValue(2).ToString()
                Fan_Data(3) = MyRead.GetValue(3).ToString()
                Fan_Data(4) = MyRead.GetValue(4).ToString()
                Fan_Data(5) = MyRead.GetValue(5).ToString()
                Fan_Data(6) = MyRead.GetValue(6).ToString()
                Fan_Data(7) = MyRead.GetValue(7).ToString()
                Fan_Data(8) = MyRead.GetValue(8).ToString()
                Fan_Data(9) = MyRead.GetValue(9).ToString()         
            End While

            'Console.Write(Fan_Data)

            MyRead.Close()
            Conn.Close()
        End Sub

    2014년 11월 2일 일요일 오후 11:48

모든 응답

  • 아래 예시 참조 부탁드립니다. 위에서 사용하신 Provider=Microsoft.ACE.OLEDB.12.0 사용하시길 바랍니다.

    ADODB connection to ACCDB file?

    제시해 드린 답변이 도움이 되었기를 바랍니다.
       
    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다.
    하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다

    2014년 11월 3일 월요일 오전 1:42
    중재자
  • 감사 합니다 덕분에 고개 하나을 넘었습니다.

    Imports ADODB
    Imports System.Data.OleDb
    Imports System

    Private StrSQL As String = "Provider=Microsoft.ACE.OLEDB.12.0; _
              Jet OLEDB:Database Password=cSSO3sEEhrM4vY3je0qC;" & _
              "Data Source =" & App_Path() & "\ACCDB\fan_data.accdb"

    Private Sub FAN_그래프_DATA()
            Dim Conn = New OleDbConnection(StrSQL)
            Conn.Open()
            '쓰기
            Dim comm = New OleDbCommand("SELECT * FROM fan_차트", Conn)

            Dim access As String

            For i = 0 To 7
                access = "UPDATE fan_차트 SET 풍량 = '" & 풍량계산(i) & _
                                          "', 정압 = '" & 정압계산(i) & _
                                          "', 동력 = '" & 효율계산(i) & _
                                          "', 효율 = '" & 동력계산(i) & "'"
            Next i

            Dim cmd As New OleDbCommand(access, Conn)
            cmd.ExecuteNonQuery()
            Conn.Close()
    end sub

    이렇게  accdb에 넣었는데요

    i=0 일떼 accdb에 row 0에 넣고 싶은데
    그렇게는 안되네요
    감사 합니다

    2014년 11월 4일 화요일 오전 1:24