[前][次][番号順一覧][スレッド一覧]

mysql:13516

From: <atakahashi@xxxxxxxxxx>
Date: Fri, 17 Nov 2006 15:19:51 +0900
Subject: [mysql 13516] ado VB でのauto_incrementのフィールドのINSERT構文

お世話になります。MySQL初心者のもので、投稿します。

ADO VBで開発を行っておりますが、auto_incrementがついているフィールドに対し
てどのように
レコード追加していいか分かりません。どなたか知ってらっしゃる方は教えて下さ
い。
初心者な質問で申し訳ございません、、、、


ソース
************************************
Sub CSV取込処理_Click()
    Dim myrec As ADODB.Recordset
    Set myrec = New ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim cnt As String
    Dim sql As String



    Dim i As Integer
    Dim myFileName

    cnt = "Provider=MSDASQL.1;Data Source=new_nyukin2"

    On Error GoTo Error1

    ' ダイアログを表示
    myFileName = Application.GetOpenFilename( _
               FileFilter:="CSV ファイル(*.CSV), *.CSV", _
               Title:="ファイルを選択して下さい", MultiSelect:=False)


    If myFileName = False Then
        Exit Sub
    End If

    Workbooks.Open myFileName

    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste

    i = 1

    Do Until Cells(i + 1, 1) = ""
        Cells(i, 7) = myFileName
        Cells(i, 8).Select
        ActiveCell.FormulaR1C1 = "=LEFT(RIGHT(RC[-1],8),4)"
        i = i + 1
    Loop

    Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("I:I").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
        :=False, Transpose:=False
    Columns("G:H").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft


    Set cn = CreateObject("ADODB.Connection")
    cn.Open cnt
    cn.BeginTrans
    MsgBox Cells(3, 1)

    sql = "insert into 67ds.u_import(pkid , syohinmei) values(1," &
Cells(3, 1) & ");"
    cn.Execute (sql)
    cn.CommitTrans
    cn.Close

    Exit Sub

Error1:
    MsgBox "エラーが発生しました。"
    Exit Sub
End Sub
************************************


テーブル
************************************
CREATE TABLE `u_import` (
  `pkid` int(7) NOT NULL auto_increment,
  `hiduke` date default NULL,
  `jancode` varchar(13) default NULL,
  `sum_suryo` smallint(7) default NULL,
  `sum_kingaku` smallint(13) default NULL,
  `syohinmei` varchar(13) default NULL,
  PRIMARY KEY  (`pkid`),
  KEY `pkid` (`pkid`)
) TYPE=InnoDB
************************************




[前][次][番号順一覧][スレッド一覧]