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

mysql:13533

From: <atakahashi@xxxxxxxxxx>
Date: Tue, 21 Nov 2006 11:30:58 +0900
Subject: [mysql 13533] ado VB でのauto_incrementのフィールドのINSERT構文

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

auto_incrementの自動採番ですが、INSERT
文で明示しなければ、自動的に採番されました。
つまり、自己解決しました、、、

初心者的な質問で申し訳ございません、、


*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+**+*+*+*+*+*
  株式会社モリタ ネットワーク開発部1課
  高橋 昭夫
  TEL:03-3836-1397 (内線521)
  FAX:03-3836-1394
  Mail:atakahashi@xxxxxxxxxx
*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+**+*+*+*+*+*
----- 転送者:  akio takahashi/morita 転送日: 2006/11/21 11:26 -----
                                                                                                                                       
                      atakahashi@morita                                                                                                
                      .com                     宛先:     ml@xxxxxxxxxx                                                                
                                               cc:       aaakiotakahasi@xxxxxxxxxx                                                    
                      2006/11/17 15:19         件名:     [mysql 13516] ado VB でのauto_incrementのフィールドのINSERT構文               
                      ml へ返信してくだ                                                                                                
                      さい                                                                                                             
                                                                                                                                       
                                                                                                                                       




お世話になります。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
************************************









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