Dear ALL VB_er....
maklum aku baru di VB....
Aku memakai ADO..permasalahan ku sekarang adalah Aku ingin jika DATA ITU
SUDAH memang ada dalam TABEL itu bisa tampil jika ...KITA ENTRY No ACCOUNT
yang sama
Jadi saat ampe terakhir digit diklik(texbox1 dengan nama textbox adalah
text1(1) dan nama label serta fieldnya adalah Account )
dan kursor itu pindah ke texbox ke dua..data itu akan tampil kalau memang
sudah ada no account yang sama seperti yang diketikan pada textbox1
ini listing yang aku buat...dan selalu ada error....
Private Sub Tampil()
Dim menara2 As String
With rs2
menara2 = App.Path & "\forex_index.mdf"
.ActiveConnection = "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=menara1"
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenStatic
.Source = "select * from clientforex where Account='" & Text1(1).Text & "'"
.Open
If RecordCount > 0 Then
rs2.EOF
Else
rs.BOF
End If
Text1(1).Text = .Fields("Account").Value
Text2(2).Text = .Fields("Account_E").Value
Text3(3).Text = .Fields("NameClient").Value
Text4(4).Text = .Fields("Address").Value
Text5(5).Text = .Fields("City").Value
Text6(6).Text = .Fields("Telp").Value
Text7(7).Text = .Fields("Credit_Limit").Value
Text8(8).Text = .Fields("In_OutMargin").Value
cmbstatus.Text = .Fields("Status").Value
Text9(9).Text = .Fields("Rate_USD").Value
Text10(10).Text = .Fields("Lot_ForOvernite").Value
Text11(11).Text = .Fields("Lot_ForDayTrade").Value
Text12(12).Text = .Fields("Lot_ForHedging").Value
Text13(13).Text = .Fields("Commission").Value
cmbinterest.Text = .Fields("ThreeDay_Interest").Value
Text14(14).Text = .Fields("DateOf_Contract").Value
Text15(15).Text = .Fields("Groups").Value
Text16(16).Text = .Fields("ID_Name").Value
Text17(17).Text = .Fields("NameGroups").Value
End With
End Sub
Private Sub Text1_GotFocus(Index As Integer)
Dim panjang As String
panjang = Trim(Text1(1).Text)
Tampil
TidakAktif
MsgBox ("Data Sudah Tercatat..!")
End Sub
harusnya bagaimana..?
makasih
--
Aku orang biasa
Tapi kepengin jadi Luar Biasa
[Non-text portions of this message have been removed]
