[MOVED] VB6 code to connect ms access database

Code Visual Basic - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
Public CON As adodb.Connection
Public CMD As adodb.Command
Public rs As adodb.Recordset
Dim mstrSQL As String
 
Public Sub ConnectToDB()
    Dim conString As String
    
        conString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                    & "Data Source=D:\DH_VB6\db2.mdb" _
                    '& App.Path & "D:\DH_VB6\db2.mdb"
    Set CON = New adodb.Connection
    With CON
     .ConnectionString = conString
     .Open
    End With
'MsgBox "hw r u"
End Sub
 
Public Sub DisconnectFromDB()
 
    Set CMD = Nothing
    CON.Close
    Set CON = Nothing
 
End Sub
Private Sub Form_Load()
ConnectToDB
End Sub
 
Private Sub Command1_Click()
 
Set rs = New adodb.Recordset
mstrSQL = "Insert into Usr_Pwd (Username,password) Values ('" & Text1.Text & "', '" & Text2.Text & "')"
Set rs = CON.Execute(mstrSQL) /////////////Syntax error in Insert into command////////////
DisconnectFromDB
MsgBox "i m fine"
End Sub

Code Visual Basic - [expand]
1
2
3
4
5
6
7
8
If exists(select username from dbo.tablename where username = "username text entered")
 begin
    Error Msg as "UserName Exists. Pl choose another name"
 end
else
 begin
    insert in to dbo.tablename.....
 end

Code Visual Basic - [expand]
1
2
3
4
5
6
7
8
9
10
mstrSQL = select userName from Usr_Pwd where  Username = Text1.Text
 
Set rs = CON.Execute(mstrSQL)
 
if (rs.RecordCount > 0) then{ ' means username already exists
  msgbox "duplicate record exists"
}
else{ // no duplicate username exists
      insert into Usr_Pwd......
}

Code Visual Basic - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
mstrSQL = select userName from Usr_Pwd
Set rs = CON.Execute(mstrSQL)
int i = 0;
dim duplicateRecord as int
 
while Not rs.EOF
  if (rs(i) = Text1.Text) then
    duplicateRecord = 1
  end if
  i++
 move rs.MoveNext
Wend
 
i = 0;
 
if (duplicateRecord = 1) then
   duplicateRecord = 0
   msgbox "duplicate record exists"
 exit sub
else
  insert into Usr_Pwd......
end if