none
ADO 방식 추가가 될때 RRS feed

  • 질문

  • 'ADO방식
    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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Fan_Data(0) = TextBox3.Text         '공사명
            Fan_Data(1) = ComboBox2.Text        'AS기간
            Fan_Data(2) = DateTimePicker1.Value 'AS시작
            Fan_Data(3) = DateTimePicker2.Value 'AS끝
            Fan_Data(4) = ComboBox26.Text       '공조기종류
            Fan_Data(5) = ComboBox7.Text        '장비TYPE
            Fan_Data(6) = TextBox4.Text         '장비번호
            Fan_Data(7) = TextBox1.Text         '수량
            Fan_Data(8) = ComboBox4.Text        'S_규격
            Fan_Data(9) = ComboBox5.Text        'S_LOAD


            Dim Conn = New OleDbConnection(StrSQL)
            Conn.Open()
            Dim comm = New OleDbCommand("SELECT * FROM QUIT", Conn)
            Dim iresult As Integer = 0

            '추가
            comm.CommandText =
                     "INSERT INTO QUIT(1, 2, 3, 4, 5, 6, 7, 8, 9)values (" _
                                               & Fan_Data(0) & "," _
                                               & Fan_Data(1) & "," _
                                               & Fan_Data(2) & "," _
                                               & Fan_Data(3) & "," _
                                               & Fan_Data(4) & "," _
                                               & Fan_Data(5) & "," _
                                               & Fan_Data(6) & "," _
                                               & Fan_Data(7) & "," _
                                               & Fan_Data(8) & "," _
                                               & Fan_Data(9) & ")"
            Conn.Close()
        End Sub

    저장이 않됩니다

    2015년 9월 3일 목요일 오전 9:30

답변

  • 문자열값의 INSERT시에는 Single Quotation(')으로 양쪽을 막아주어야 할 것입니다. 에를 들면 value(  'AS시작' ) 문자열은 '문자열'를 추가해서 INSERT 해보시기 바랍니다.
    • 편집됨 SMPark82 2015년 9월 4일 금요일 오전 8:02
    • 답변으로 표시됨 박희철 2015년 9월 4일 금요일 오전 8:15
    2015년 9월 4일 금요일 오전 7:57
  • 문자열값의 INSERT시에는 Single Quotation(')으로 양쪽을 막아주어야 할 것입니다. 에를 들면 value(  'AS시작' ) 문자열은 '문자열'를 추가해서 INSERT 해보시기 바랍니다.

     감사 합니다

    • 답변으로 표시됨 박희철 2015년 9월 4일 금요일 오전 8:15
    2015년 9월 4일 금요일 오전 8:15

모든 응답

  • OleDbCommand를 실행하는 코드가 추가 되어야 합니다.

     
    comm.CommandText =
                     "INSERT INTO QUIT(1, 2, 3, 4, 5, 6, 7, 8, 9)values (" _
                                               & Fan_Data(0) & "," _
                                               & Fan_Data(1) & "," _
                                               & Fan_Data(2) & "," _
                                               & Fan_Data(3) & "," _
                                               & Fan_Data(4) & "," _
                                               & Fan_Data(5) & "," _
                                               & Fan_Data(6) & "," _
                                               & Fan_Data(7) & "," _
                                               & Fan_Data(8) & "," _
                                               & Fan_Data(9) & ")"
        
          comm.ExecuteNonQuery()  ' INSERT 명령을 실행
          comm.Dispose()	     ' 
         Conn.Close()
         Conn.Dispose()

    2015년 9월 3일 목요일 오전 11:29
  • 감사 합니다

    확인해 주신 대로 했는데 아래와 같은 에라가 뜨네요. 왜일까요

    2015년 9월 4일 금요일 오전 12:11
  • INSERT INTO 문의 구문 오류입니다.

    QUIT(1부터 9) 9개이고요.

    Value는 Fan_Data(0) & 부터 Fan_Data(9) 10개인데요. 숫자가 맞지 않네요.

     
    2015년 9월 4일 금요일 오전 1:30
  • 감사 합니다

    혹시

    Public FAN_DATA(0 To 9)

            FAN_DATA(0) = 1
            FAN_DATA(1) = ""
            FAN_DATA(2) = "AS시작"
            FAN_DATA(3) = "AS끝"
            FAN_DATA(4) = 1
            FAN_DATA(5) = " "
            FAN_DATA(6) = 169
            FAN_DATA(7) = 17
            FAN_DATA(8) = "1"
            FAN_DATA(9) = "S_LOAD"

    변수 값이 "문자, 숫자,"" "등 혼제 되어 있으면 값이 안들어가지나요

    2015년 9월 4일 금요일 오전 6:29
  • QUIT(1, 2, 3, 4, 5, 6, 7, 8, 9) >>> 여기에 9개 인수(arguments)이고,(1부터 9까지 9개)

    FAN_DATA(0)부터 FAN_DATA(9) >>> 여기에 10개 인수(0부터 9까지 10개) 의 갯수가 불일치한 것이 문제 아닌지요?

    2015년 9월 4일 금요일 오전 6:38
  • QUIT(1, 2, 3, 4, 5, 6, 7, 8, 9) >>> 여기에 9개 인수(arguments)이고,(1부터 9까지 9개)

    FAN_DATA(0)부터 FAN_DATA(9) >>> 여기에 10개 인수(0부터 9까지 10개) 의 갯수가 불일치한 것이 문제 아닌지요?

    인수의 숫자가 틀리더군요 덕분에 맟추고 보니     꾹벅  감사 합니다.

    자(정수)는 val(fan_data(0)) 하면 드러값는다

    문자  FAN_DATA(2) = "AS시작" -> 에라가 걸리네요고민 중입니다.

    2015년 9월 4일 금요일 오전 7:32
  • 문자열값의 INSERT시에는 Single Quotation(')으로 양쪽을 막아주어야 할 것입니다. 에를 들면 value(  'AS시작' ) 문자열은 '문자열'를 추가해서 INSERT 해보시기 바랍니다.
    • 편집됨 SMPark82 2015년 9월 4일 금요일 오전 8:02
    • 답변으로 표시됨 박희철 2015년 9월 4일 금요일 오전 8:15
    2015년 9월 4일 금요일 오전 7:57
  • 문자열값의 INSERT시에는 Single Quotation(')으로 양쪽을 막아주어야 할 것입니다. 에를 들면 value(  'AS시작' ) 문자열은 '문자열'를 추가해서 INSERT 해보시기 바랍니다.

     감사 합니다

    • 답변으로 표시됨 박희철 2015년 9월 4일 금요일 오전 8:15
    2015년 9월 4일 금요일 오전 8:15