ส่งข้อมูลจาก Access ไปยัง SQL 2000 โดยใช้ VB
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 382   2
URL.หัวข้อ / URL
ส่งข้อมูลจาก Access ไปยัง SQL 2000 โดยใช้ VB

ผมเริ่มต้นเขียน VB แต่ไม่ทราบว่าจะปรึกษาใครดี ขออาจารย์เป็นที่พึ่งนะครับ
ผมต้องการส่งข้อมูลจาก Table Access สมมุติชื่อ Table A ไปยัง Table A
ใน SQL 2000 ด้วย ADO ครับ ต้องเรียงลำดับการเขียนอย่างไรครับ สมมุติ field ใน
Table A คือ AC และ BC ครับ ช่วยผมด้วยนะครับ มือใหม่

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06470
ลองศึกษาดูโค้ดนี้ครับ

Dim cnn As Object
Dim rst As Object

Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

cnn.Open "Provider=SQLOLEDB;Data Source=ชื่อServer;User ID=Sa; " & _
" Password=;Initial Catalog=ชื่อฐานข้อมูลเป้าหมาย"

rst.Open "Select AC, BC From TableA", CurrentProject.Connection

Do While Not rst.EOF
cnn.Execute "Insert Into TableA (AB,BC) Values (" & rst(0) & "," & rst(1) & ")"
rst.MoveNext
Loop

rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
2 @R06471
กรณีข้างบนจะใช้กับฟีลด์ประเภท Number

ถ้าเป็น Text จะใช้

Values ('" & rst(0) & "', '" & rst(1) & "')"
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1152s