Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


load array database


load array database

Author
Message
jon doe
jon doe
Forum God
Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)Forum God (3.5K reputation)

Group: Forum Members
Posts: 8, Visits: 21
Dear all,



I have a problem with my code, I try load array database, i use textbox for load array database, the code is :



Option Explicit

Dim lngoriginaltop As Long

Dim incremen As Long

Dim index, jmlh As Integer



Private Sub Command1_Click()

index = Text1.Count

Load Text1(index + 1)

Text1(index + 1).Top = Text1(index).Top + 555

Text1(index + 1).Visible = True

Frame1.Height = Frame1.Height + Text1(index).Height

End Sub



Private Sub Form_Load()

lngoriginaltop = Frame1.Top

incremen = (Frame1.Height - Form2.Height) / VScroll1.Max

Read

End Sub



Private Sub VScroll1_Change()

Frame1.Top = lngoriginaltop - (VScroll1.Value * 100)

End Sub



Sub Read()



Kata = "Select * from T_CG"

Set Tfind = New ADODB.Recordset

Tfind.Open word, TMedis, adOpenDynamic



If Not Tfind.EOF Then

Tfind.MoveFirst

While Not Tfind.EOF

index = Text1.Count

Load Text1(index + 1)

Text1(index + 1).Top = Text1(index).Top + 555

Text1(index + 1).Visible = True

Text1(index + 1).Text = Tfind![Name]

Tfind.MoveNext

Wend

End If

Tfind.Close



End Sub



Sub delete()



index = Text1.Count

If Text1(index) <> Text1(1) Then

Unload Text1(index)

End If

Next i

End Sub



my question if I want to add command button besides text.text and the command same like text array, thanks for helping me
GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search