Mengatasi error “text property is read only” di Visual Basic 6

Mungkin anda pernah mengalami hal ini. Saat anda hendak mengisi combo dengan sebuah string dengan cara combo1.text = “xxx”, maka akan muncul error “text property is read only”. Hal ini sebabkan karena combo tersebut pada properties stylenya bernilai 2 atau dropdownlist. Hal ini dapat diatasi dengan mengganti xxx tersebut dengan string yang sama persis dengan isi yang ada di combo tersebut.

Atau bisa juga menggunakan cara lain, yaitu dengan menggunakan properti listIndex. Di bawah ini adalah contoh cara mengisi combo tersebut dengan menggunakan listIndex.

Dim i,angka as integer
For i = 0 To combo1.ListCount - 1
If Trim(combo1.List(i)) = Trim(text1.text) Then
angka = i
End If
Next
combo1.ListIndex = angka

Cara pertama memang lebih mudah, namun menurut pengalaman saya, kadangkala isi dari combo tersebut string yang ada terdapat pula spasi yang tidak terlihat. Butuh waktu hampir setengah jam buat saya bisa menyelesaikan masalah ini. Padahal masalahnya hanyalah spasi tersebut. Oleh karena itu dicara kedua saya melakukan trim agar spasi tersebut dihilangkan.

Semoga artikel ini membantu.

Auto generate code di Visual Basic

Sering kali, saat kita berhubungan dengan database, kita dihadapkan dengan masalah auto generate primary key. Biasanya cara paling gampang adalah dengan menggunakan fasilitas auto increment dari DBMS tersebut. Namun apabila primary key tersebut tidak berupa integer, maka fitur tersebut tidak dapat digunakan. Oleh karena itu mau tidak mau harus menggunakan coding untuk menggenerate key tersebut.

Contoh kasus disini menggunakan primary key sbb A01,A02,..A99

Dim counter As Integer
Dim kode as String
DATA.Open ” select max(right(field_name,jumlah_angka)) as max from table_name”
counter = Val(DATA!Max) + 1
If counter < 10 Then
kode = “A0″ & counter
Else
kode = “A” & counter
End If
DATA.Close

Algoritma ini hampir sama jika dilakukan pada bahasa pemrograman lainnya, kebetulan saja saya sedang menggunakan Visual Basic.
Semoga membantu.