引用 | 編輯
qq77618
2006-12-14 02:47 |
樓主
▼ |
||
x0
請問我要怎麼改呢?我之前做的新增方式 Dim db As New DbAccess("cNorthWind.MDF") Dim SQL As String = "" '建立一個不可能重複的key值 Randomize(Microsoft.VisualBasic.Timer) Dim tmpKey As String = "識別碼:" & Now.Ticks & Rnd() '先新增一筆空白資料 SQL = "insert into 客戶 (附註) values ('" & tmpKey & "')" If db.ExecuteCmd(SQL) <= 0 Then MsgBox("新增失敗", MsgBoxStyle.Critical) Exit Sub End If '將剛才新增的這筆資料帶入 SQL = "select * .. 訪客只能看到部份內容,免費 加入會員 x0
|