This for All who want make a computer program who in bassic skill.Full description
Descrição: VB6
Manual de Visual BasicDescripción completa
Descripción: Visual Basic 2005 Express - VB .Net
Descripción completa
Full description
Manual de Visual BasicDescripción completa
Visual Basic BasicoFull description
Pr obl ema manr 2. Săs er e a l i z e z eunpr o i e c tVi s ualBas i cp r i nc a r es ăs ee f e c t ue z eanal i z a unuit e x tpr e l uatdel at as t at ur ă ,di nc l i pbo ar ds a udi nt r unfiş i e rş is ă s ei de nt i fic ec ume mo mo r ar ef r a z el e ,c uvi nt e l eş ic a r ac t e r e l ef o l o s i t eî n t e xt .Săs ec o nt o r i z e z edec ât eor iapar efie c a r edi nt r eac e s t e a.Ac c e s ul s ăs ef ac ăpeni v e l edepr e l uc r ar epebaz ădepar o l e ,c ume mb mbr imul t i pl i , ac t ual i z abi l e .Dat e l edei nt r a r eş ir e z ul t at e l es ăs et r e c ăpes upo r ţ ide memo mor i ee xt er nă.
Co d uls u r s ae s t eur ma t o r ul : Imports System.Data.OleDb Imports System.Data.OleDb Public Class Form1 Dim provider Dim provider As String Dim dataFile Dim dataFile As String Dim connString Dim connString As String Dim myConnection Dim myConnection As OleDbConnection OleDbConnection = = Ne OleDbConnection Private Sub Form1!"oad#sender Form1!"oad#sender As Ob$ect Ob$ect%% e As &ventArgs &ventArgs'' (andles )y*ase )y*ase."oad ."oad provider = +Provider=)icr +Provider=)icroso,t.-et.O"&D*../0Dat oso,t.-et.O"&D*../0Data a Source =+ C2ange t2e ,olloing to your access database location dataFile = +C345sers4Carolina4Des6top4ba7e4Database1.mdb+ connString = provider 8 dataFile dataFile myConnection.ConnectionString myConnection.Connect ionString = connString myConnection.Open#' &nd Sub Private Sub Sub *utton1!Clic6#sender *utton1!Clic6#sender As Ob$ect Ob$ect%% e As &ventArgs &ventArgs'' (andles (andles *utton1.Clic6 *utton1.Clic6 t2e 9uery3 Dim cmd Dim cmd As OleDbCommand OleDbCommand = = Ne OleDbCommand OleDbCommand##+S&"&C: ; F ?(&<& utili7ator> = + 8 + 8 :e@t*o@1.:e@t 8 + AND parola> = + 8 + 8 :e@t*o@.:e@t 8 ++ ++%% myConnection' Dim dr Dim dr As OleDbData
t2e ,olloing variables ill 2old t2e user Brst and last name i, ,ound. i, ,ound3 ?2ile dr.
c2ec6ing t2e result I, userFound = :rue :2en Form.S2o#'
&lse )sg*o@#+Sorry% username or passord not ,ound+ % )sg*o@Style .O6Only% +Invalid "ogin+'
&nd I, myConnection.Close#' &nd Sub &nd Class
Co d uls u r s ae s t eur ma t o r ul : Public Class Form Dim v As String Dim n As Integer Dim i As Integer Dim $ As Integer Dim nr As Integer Dim au@ As Integer Dim au@1 As String Dim o6 As Integer Dim au@ As String Private Sub "abel1!Clic6#sender As Ob$ect% e As &ventArgs' (andles "abel1.Clic6
&nd Sub Private Sub :e@t*o@1!:e@tC2anged#sender As Ob$ect% e As &ventArgs' (andles :e@t*o@1.:e@tC2anged &nd Sub Private Sub *utton1!Clic6#sender As Ob$ect% e As &ventArgs' (andles *utton1.Clic6 v = :e@t*o@1.:e@t alocam un numar Bsierului Dim nrF As Integer = FreeFile#' desc2idem Bsierul in modul Ouput pt creare FileOpen#nrF% +,34Bs1.t@t+ % Open)ode.Output' scriem in Bsier linie cu linie antetul