Şuan kodları inceliyorum chopper07 kardeşim anlatım çok güzel olmuş çok teşekkür ederim inceledikten sonra geri bildirim yapacağım teşekkürler.
form'a ait kaynak kodlar:
Private Sub Form_Load()
Dim a As New ADODB.Recordset
a.Open "select * from veri", "dsn=bkd", adOpenStatic, adLockOptimistic
With MSFlexGrid1
.Cols = 2
.ColWidth(0) = 2000
.ColWidth(1) = 2000
Width = 4000
.TextMatrix(0, 0) = "Malın Cinsi"
.TextMatrix(0, 1) = "Barkod"
.Rows = a.RecordCount + 1
For t = 1 To a.RecordCount
.TextMatrix(t, 0) = a("Malin_Cinsi")
.TextMatrix(t, 1) = a("Barkod_No")
a.MoveNext
Next
End With
End Sub
Private Sub MSFlexGrid1_Click()
StrokeScribe1.Alphabet = CODE128
StrokeScribe1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
End Sub
Bilen üstatlara sesleniyorum bu konuya bi açıklık getirirsek çok sevinirim. sadece ben değil hem site sakinleri faydalanır hem de internet'te böyle bir konunun cevabı yok her şey parça parça bu örneği tam çalışır hale getirirsek çok yarayışlı olacağına inanıyorum.teşekkürler.