How to program Gambas with MySQL in Ubuntu

How to program Gambas with MySQL in Ubuntu

1. sudo mkdir /var/run/mysqld  
2. sudo ln -s /opt/lampp/var/mysql/mysql.sock /var/run/mysqld/mysqld.sock  

Here are the way how to program Gambas with MySQL. 

Assuming you already know how to do simple form using Gambas.If not, better you check out this post.
gb.db must be selected.

Create a form.

Here are the Gambas code.

view plaincopy to clipboardprint?

1. ‘ Gambas class file  
2.  PUBLIC MyConn AS Connection  
3.  PUBLIC MyRS AS Result  
4.  PUBLIC vCari AS String  
5.   
6.  STATIC PUBLIC SUB Main()  
7.  DIM oForm AS form  
8.  oForm = NEW fsahabat  
9.  oForm.showModal()  
10.  END  
11.   
12.  PUBLIC SUB _new()  
13.    ME.center  
14.    DBConnect  
15.    getData  
16.    transferData  
17.    fillUpListBox  
18.  END  
19.   
20.  PUBLIC SUB DBConnect()  
21.    MyConn = NEW Connection  
22.    MyConn.Close  
23.    MyConn.Type = “mysql”  
24.    MyConn.Host = “localhost”  
25.    MyConn.Login = “root”  
26.    MyConn.Password = “root”  
27.    MyConn.Name = “sahabat”  
28.    MyConn.Open  
29.  CATCH  
30.    Message.error(Error.text)  
31.  END  
32.  PUBLIC SUB getData()  
33.    DIM sql AS String  
34.    sql = “select * from tsahabat order by id”  
35.    MyRS = MyConn.Exec(sql)  
36.  CATCH  
37.    Message.error(Error.text)  
38.  END  
39.   
40.  PUBLIC SUB transferData()  
41.    vCari = Str(MyRS!id)  
42.    txtName.text = MyRS!nama  
43.    txtAlamat.text = MyRS!almt1  
44.    txtPhone.text = MyRS!telp  
45.  CATCH  
46.    Message.error(Error.text)  
47.  END  
48.   
49.  PUBLIC SUB fillUpListBox()  
50.    DIM i AS Integer  
51.    DIM vKode AS String  
52.   
53.    listbox1.Clear  
54.    FOR i = 1 TO MyRS.Count  
55.        vKode = Space$(7 – Len(Str(MyRS!id))) & Str(MyRS!id)  
56.        listbox1.add(vKode & ” | ” & MyRS!nama)  
57.       MyRS.MoveNext  
58.    NEXT  
59.   
60.  CATCH  
61.    Message.error(Error.text)  
62.  END  
63.   
64.  PUBLIC SUB listbox1_Click()  
65.    DIM sql AS String  
66.    btnSave.Text = “UPDATE”  
67.    vCari = Trim(Left$(listbox1.text, 7))  
68.    sql = “select * from tsahabat where id =” & vCari  
69.    MyRS = MyConn.Exec(sql)  
70.    transferData  
71.   
72.  CATCH  
73.    Message.Error(Error.Text)  
74.   
75.  END  
76.   
77.  PUBLIC SUB btnSave_Click()  
78.   DIM sql AS String  
79.   
80.   IF btnAdd.Enabled = FALSE THEN  
81.     sql = “insert into tsahabat (nama,telp,almt1 )values( ‘” &  
82.            txtName.text & “‘,'” & txtPhone.text & “‘,'” &  
83.            txtAlamat.text & “‘)”  
84.     MyRS = MyConn.Exec(sql)  
85.     btnAdd.Enabled = TRUE  
86.   ELSE  
87.     sql = “update tsahabat set ”  
88.     sql = sql & “nama = ‘” &  
89.     txtName.text  
90.     sql = sql & “‘,almt1 = ‘” &  
91.     txtAlamat.text  
92.     sql = sql & “‘,telp = ‘” & txtPhone.text & “‘ where id = ” & vCari  
93.     MyRS = MyConn.Exec(sql)  
94.   ENDIF  
95.   getData  
96.   fillUpListBox  
97.   
98.  CATCH  
99.   Message.Error(Error.Text)  
100.  END  
101.   
102.  PUBLIC SUB btnCancel_Click()  
103.   DIM sql AS String  
104.   vCari = Trim(Left$(listbox1.text, 7))  
105.   IF vCari <> “” THEN  
106.     btnAdd.Enabled = TRUE  
107.     sql = “select * from tsahabat where id =” & vCari  
108.     MyRS = MyConn.Exec(sql)  
109.     transferData  
110.    CATCH  
111.     Message.Error(Error.Text)  
112.    ELSE  
113.     clear  
114.    ENDIF  
115. END  
116.   
117. PUBLIC SUB btnAdd_Click()  
118.   clear  
119.   btnAdd.Enabled = FALSE  
120.   btnSave.Text = “SAVE”  
121. END  
122.   
123. PUBLIC SUB btnDelete_Click()  
124.   DIM sql AS String  
125.   IF Message.Question(“Confirm to delete”, “Yes”, “No”) = 1 THEN  
126.     sql = “delete from tsahabat where id = ” & vCari  
127.     MyRS = MyConn.Exec(sql)  
128.     getData  
129.     transferData  
130.     fillUpListBox  
131.   ENDIF  
132.   
133. END  
134.   
135.  PRIVATE SUB clear()  
136.   txtName.text = “”  
137.   txtPhone.text = “”  
138.   txtAlamat.text = “”  
139.  END  
140.   
141.  PUBLIC SUB _free()  
142.   MyConn.Close  
143.   Message.Info(“Thanks…, Salam Linux “)  
144.  END  
145.  ‘End of program  

Here the table structure with sample data.

view plaincopy to clipboardprint?

1. create table tsahabat (  
2. id int(7) NOT NULL auto_increment,  
3. nama char(50) ,almt1 char(255),telp char(10),  
4. primary key (id)  
5. );  
6.   
7. insert into tsahabat (nama,almt1,telp) values (‘arejae’,’Sg Buloh,Selangor’,’012-1234567′);  

view plaincopy to clipboardprint?

1. create table tsahabat (  
2. id int(7) NOT NULL auto_increment,  
3. nama char(50) ,almt1 char(255),telp char(10),  
4. primary key (id)  
5. );  
6.   
7. insert into tsahabat (nama,almt1,telp) values (‘arejae’,’Sg Buloh,Selangor’,’012-1234567′);  

How to program Gambas with MySQL in Ubuntu Here are the way how to program Gambas with MySQL.  Assuming you already know how to do simple form using Gambas.If not, better you check out this post.gb.db must be selected. Create a form. Here are the Gambas code. view plaincopy to clipboardprint? Here the table…

How to program Gambas with MySQL in Ubuntu Here are the way how to program Gambas with MySQL.  Assuming you already know how to do simple form using Gambas.If not, better you check out this post.gb.db must be selected. Create a form. Here are the Gambas code. view plaincopy to clipboardprint? Here the table…