Antallages programmatwn gia politikous mixanikous zitw me allous sinadelfous.

Από: erik25 - 2/1/2005
8 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

ΠOY ΜΠΟΡΩ ΝΑ ΒΡΩ CRACK ΓIA TO CLONE CD KAI ΠΩΣ ΜΠΩΡΩ ΝΑ ΤΟ ΧΡΙΣΙΜΟΠΟΙΕΙΣΩ ?(ΕΚΔΟΣΗ5.0.4.2@

Από: spyros sps - 2/1/2005
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

Kalimera kai xronia polla
Ta windows 98 den klinoun me tipota
Stamatoun stin teleftea eikona pou leei
"Ta windows termatizonte" kai ekei pagonei. Gia na kliso kano reset kai ola apo tin arxi kai tote klinoun

Από: johnnyk - 31/12/2004
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

Εχω access XP σε μορφη 2000

Η βαση λεγεται db1 με έναν πινακα tbl_login με πεδια user_name και password. Η βαση προστατευεται από κωδικο τον 111.


Στο database.bas ο κωδικας είναι ο εξης .

Public rs As ADODB.Recordset
Public rsUser As ADODB.Recordset 'Recordset for users
Public cn As ADODB.Connection

‘αναφορα στις βιβλιοθηκες
'1> Project Menu => Reference
'2> Add Microsoft ActiveX Data Object Library 2.5

Private Sub main()

Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
Set rsUser = New ADODB.Recordset

cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db1.mdb;password=111;"
cn.Open

rsUser.Open "Select user_name from tbl_login", cn, adOpenKeyset, adLockPessimistic

login.Show
End Sub


Στη φορμα login εχω
1 combobox με ονομα dbUserId
1 textbox με ονομα txtPasswd
1 command botton με ονομα cmdLogin
1 command botton με ονομα cmdCancel

ο κωδικας μου είναι

Private Sub Form_Load()

txtPasswd = ""

rsUser.movefirst
Do until rsUser.eof = true
dbUserId.additem rsUser.fields(“user_name”
rsUser.movenext
Loop
rsUser.movefirst

End Sub

Private Sub cmdCancel_Click()
rsUser.close
Set rsUser = nothing
Unload Me

End Sub


Private Sub cmdLogin_Click()
rsUser.Close
rsUser.Open "Select password from tbl_login where user_name = '" & dbUserId.Text & "'", cn, adOpenDynamic, adLockOptimistic


If rsUser.EOF True Then
frmMain.Show

Else
MsgBox "προσοχη!!!" & vbCrLf & "λαθος", vbInformation, "λαθος"
txtPasswd.Text = ""
txtPasswd.SetFocus
End If

End Sub


Όταν τρεχω το προγραμμα βγαζει λαθος. Αν μπρορει καποιος ας με βοηθησει.

ευχαριστω

Από: dora.san - 28/12/2004
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

Geia sas.Psaxnw to programma spss. ennoite free download.exei kapoios kamia idea gia to pou mporw na to brw?

Από: ehatzika - 14/12/2004
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news