Feb 14th, 2000, 02:52 AM
I have 2 (Oracle)workstation connecting to a (Oracle) server.
Condition:
# ADO Connection
# Oracle 8.0.5(Client & Server)
# Workstation : Win98
# Server : winNT (SP4)
Coding:
Private Sub ctButton1_Click()
Dim ssql As String
Dim userinfo As String
Dim ret As Long
Dim Temp As String * 50
Dim lpAppName As String, lpFileName As String, lpKeyName As String, lpString As String
'Ini files
userinfo = Text1.Text + Text2.Text
lpAppName = "DATA"
lpKeyName = "USERNAME"
lpString = userinfo
lpFileName = "Coms32"
ret = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
If ret = 0 Then
Beep
End If
'Start verify username & password
ssql = "select * from USERPROP where USERNAME = '" & Text1.Text & "'"
Set rs = cn.Execute(ssql)
On Error GoTo err1
If Text2.Text <> rs!PASSWORD Then
MsgBox "Incorrect! Please try again"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Menufrm.Show
Unload Me
End If
Exit Sub
err1:
MsgBox "You are not filling Username and Password or incorrect Username"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
-------
Problem
I can view the data on the other workstation which do not have VB6 by sql 8. But in VB Application error accor....
-Khamal-
Condition:
# ADO Connection
# Oracle 8.0.5(Client & Server)
# Workstation : Win98
# Server : winNT (SP4)
Coding:
Private Sub ctButton1_Click()
Dim ssql As String
Dim userinfo As String
Dim ret As Long
Dim Temp As String * 50
Dim lpAppName As String, lpFileName As String, lpKeyName As String, lpString As String
'Ini files
userinfo = Text1.Text + Text2.Text
lpAppName = "DATA"
lpKeyName = "USERNAME"
lpString = userinfo
lpFileName = "Coms32"
ret = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
If ret = 0 Then
Beep
End If
'Start verify username & password
ssql = "select * from USERPROP where USERNAME = '" & Text1.Text & "'"
Set rs = cn.Execute(ssql)
On Error GoTo err1
If Text2.Text <> rs!PASSWORD Then
MsgBox "Incorrect! Please try again"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Menufrm.Show
Unload Me
End If
Exit Sub
err1:
MsgBox "You are not filling Username and Password or incorrect Username"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
-------
Problem
I can view the data on the other workstation which do not have VB6 by sql 8. But in VB Application error accor....
-Khamal-