Terima kasih udah mau sharing program ini bermanfaat banget buat aku
tapi gmana nampilin data di kategory kayak combobox di colom datagrid
apakah bisa pake additem?
trima kasih
Lilis Suryani ArjaMaya <[EMAIL PROTECTED]> wrote:
dear programmers,
kalo kemarin aku coba share gimana menginput data via TrueDBgrid
skrng aku coba bagi gimana kalo pake DataGrid, lumayan bisa
memanfaatkan apa yg ada jadi ga harus pake third party yg lain :-)
ok spt biasa silahkan copy paste kode dibawah ini, by the way
aku harap sih logikanya juga jgn copy paste ya hihihihi, semoga bermanfaat.
Dim cn As ADODB.Connection
Dim rsTemporary As ADODB.Recordset '-- utk menyimpan data sementara
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rsTemporary = New ADODB.Recordset
cn.ConnectionString = "Provider=SQLOLEDB;Integrated
Security=SSPI;PersTemporaryist Security
Info=False;Initial Catalog=NamaDatabase;Data Source=NamaServer"
cn.CursorLocation = adUseClient
cn.Open
rs.Open "Categories", cn, adOpenStatic, adLockOptimistic
'--buat field sementara utk di bound ke datagrid
'--utk contoh aku buat 2 field aja, silahkan tambah kalo mau :-)
rsTemporary.Fields.Append "CategoryName", adVarChar, 15
rsTemporary.Fields.Append "Description", adVarChar, 25
rsTemporary.CursorType = adOpenStatic
rsTemporary.Open
Set DataGrid1.DataSource = rsTemporary '--hubungkan datagrid dg recordset
sementara
End Sub
Private Sub Command1_Click() '--tombol save
rsTemporary.MoveFirst
Dim i As Integer
For i = 0 To DataGrid1.VisibleRows '--jumlah semua baris
DataGrid1.Row = i
If Len(DataGrid1.Columns(0).Text) > 0 Then
rs.AddNew
rs!categoryname = DataGrid1.Columns(0).Text
rs!Description = DataGrid1.Columns(1).Text
rs.Update
End If
Next
End Sub
Private Sub DataGrid1_Click()
On Error Resume Next
If rsTemporary.EditMode = adEditNone Then '--jika tidak dalam mode edit
rsTemporary.AddNew '--tambahkan baris baru
Else
Exit Sub
End If
End Sub
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If DataGrid1.Col = 1 Then '--jika posisi ada di kolom akhir
rsTemporary.AddNew '--tambahkan baris yg baru
DataGrid1.Col = 0 'fokuskan ke kolom pertama
Else
SendKeys "{RIGHT}" '--geser kekanan spt halnya dgn menekan panah kanan
End If
End If
End Sub
Keterangan : DataGrid akan aktif/mode input kalo sudah diclick
kalo mau spt truedbgrid silahkan manfaatkan button kolomnya
jadi spt ada combobox di dlm kolom tanpa hrs pake combo box lagi
contoh : datagrid1.columns(0).button=true
dgn kode ini maka kolom 0 akan ada combo nya.
salam
Lilis Suryani ArjaMaya
__________________________________________________________
Building a website is a piece of cake. Yahoo! Small Business gives you all the
tools to get online.
http://smallbusiness.yahoo.com/webhosting
---------------------------------
Get the Yahoo! toolbar and be alerted to new email wherever you're surfing.
[Non-text portions of this message have been removed]
