การติดต่อกับ ดาต้าเบส สำหรับมือใหม่ ซิงๆ
สวัสดีครับ วันนี้มีเรื่องที่เกียวกับ การติดต่อกับ ดาต้าเบส สำหรับมือใหม่ ซิงๆ ผมได้รับคำถามมาจากหลายท่านที่ถามถึงการเริ่มใช้งาน PowerBuilder กับการติดต่อกับ ดาต้าเบส ซึ่งผมก็เคยประสบกับปัญหานี้มาในตอนที่เริ่มเล่นใหม่ๆ จึงจะนำความรู้ที่พอมีมาถ่ายทอดให้กับผู้ที่กำลังเริ่มต้นใช้งาน
ให้ทำการสร้าง Application ขึ้นมาใหม่ 1 อัน โดยคลิกที่ Library Painter แล้วเลือกที่ Create Library ตั้งชื่อว่า newuser เราจะเริ่มจากการสร้าง ดาต้าเบสก่อนเป็นอันดับแรก เมื่อเรา รัน PowerBuilder เสร็จแล้ว ก็ให้คลิกที่ปุ่ม Database โปรแกรมอาจจะเปิด Dialog Select table ขึ้นมาก็ให้คลิก cancel จากนั้นให้คลิกที่เมนู file เลือก create database ตั้งชื่อในช่อง database name ว่า Newuser จากนั้นก็คลิก ok
ต่อมาก็ให้ทำการสร้าง Table ขึ้นมากำหนด column ต่างๆตามที่เราต้องการ ทำการกำหนดค่าเริ่มต้นต่างๆ
ไฟล์ภาพ/ข้อมูล ---> ถูกแสดงอยู่
ตามรูปจะทำการสร้าง table ที่ชื่อว่า name_sample โดยทำการกำหนด คอลัมน์ id ให้เป็น Primary key เสร็จแล้วให้ save
ไฟล์ภาพ/ข้อมูล ---> ถูกแสดงอยู่
จากนั้นให้สร้าง วินโดวส์ ใหม่ขึ้นมาหนึ่งอัน วาง command button และ datawindow control ลงไปตามรูป สำหรับ datawindow ก็ไปสร้างตามแบบที่ท่านชอบ เสร็จแล้วก็มาวางลงบน datawindow control ด้านบน
เสร็จแล้วเขียนสคริปต์ลงไปตามด้านล่าง
ที่ Open event ของ w_newuser
dw_1.settransobject(sqlca)
ที่ Retrieve button ที่ Clicked event
dw_1.retrieve()
ที่ Insert Button ที่ Clicked event
dw_1.Insertrow(0)
ที่ Update Button ที่ Clicked event
dw_1.update()
Commit;
ที่ Delete Button ที่ Clicked event
Int Rows
Rows = dw_1.Getrow()
dw_1.Deleterow(Rows)
dw_1.Udate()
Commit;
ที่ Exit Button ที่ Clicked event
Close(w_newuser)
จากนั้นให้ทำการ save
ต่อมาให้เปิด Application ขึ้นมา คลิกที่ icon script จากนั้นให้พักตรงนี้ใว้ก่อนยังไม่ต้องเขียนสคริปต์ลงไป ให้ไคลิกที่ dbprofile เลือก newuser คลิกที่ edit
เลือกที่ tab preview คลิกที่ copy คลิก ok คลิก close จากนั้นก็ paste ค่าที่ copy มา และเขียนสคริปต์เพิ่มเติมดังด้านล่างนี้
connect using Sqlca;
if Sqlca.sqlcode 0 then
MessageBox ("ติดต่อกับ ฐานข้อมูลไม่ได้", Sqlca.sqlerrtext)
return
end if
open(w_newuser)
เสร็จแล้วก็ทำการ save และทดลองรันดู
สำหรับท่านที่อ่านแล้วอาจจะงงบางช่วง ก็ Download ตัวอย่างไปลองศึกษาก็แล้วกันนะครับ มีปัญหา ก็
อีเมลนี้จะถูกป้องกันจากสแปมบอท แต่คุณต้องเปิดการใช้งานจาวาสคริปก่อน
มาถามได้นะครับ
บทความนี้มาจาก www.soopsawat.com