Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

 << Topic List
ส่งข้อมูลจาก Access ไปยัง SQL 2000 โดยใช้ VB

Topic by Message Posted : on : 23/2/2547 11:39:24
เริ่มต้น  ผมเริ่มต้นเขียน 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

Reply by Message on : 23/2/2547 14:05:21
สุภาพ
(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

Back to Top
Reply by Message on : 23/2/2547 14:06:20
สุภาพ
(R06471)
กรณีข้างบนจะใช้กับฟีลด์ประเภท Number

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

Values ('" & rst(0) & "', '" & rst(1) & "')"
Back to Top
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++