  |
Vb 6.0 Xley Access Ke Database |
  Jan 16 2008, 12:14 PM
Kiriman
#1
|
|
|
Ahli Baru Grup: Learning Kiriman: 16 Penyertaan: 16-January 08 Ahli ke- 41,231  |
akum n slamat pg...
aku tgh try wat program ni.. untuk frm ke frm xde hal.. yg hal nyer,nak access ke db.. korang ley tgkkan x ape prob dgn code aku ni : Private Sub cmdLogin_Click() Dim db As Database Dim rs As Recordset Dim WS As Workspace Set WS = DBEngine.Workspaces(0) DbFile = (App.Path & "\Database\dbase.mdb") PwdString = "kambeng" Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString) Set rs = db.OpenRecordset("Other", dbOpenTable) If txtp.Text = rs("Password") And txtUs.Text = rs("Username") Then frmMenu.Show Unload Me Else MsgBox "Wrong username or password!", vbCritical, "Warning" End If End Sub |
 |
 
|
|
Jan 16 2008, 12:34 PM
Kiriman
#2
|
|
|
Ahli Rajin  Grup: Moderator Kiriman: 1,067 Penyertaan: 7-March 05 Dari: Dê Röyal Cîty Öf Silvër Ahli ke- 6,675 |
ape error nye ??
-------------------- When GOD Opened the window of mercy, HE asked me; What is your wish for to day?, I said; ALLAH, Please take care of that person who is reading this message. `Ilahi Anta Maqsudi WaRedho Kamatlubi`
|
|
|
|
|
Jan 16 2008, 12:38 PM
Kiriman
#3
|
|
|
Ahli Baru Grup: Learning Kiriman: 16 Penyertaan: 16-January 08 Ahli ke- 41,231 |
unrecognized database format??
|
|
|
|
|
Jan 16 2008, 12:44 PM
Kiriman
#4
|
|
|
Ahli Rajin Grup: Moderator Kiriman: 1,067 Penyertaan: 7-March 05 Dari: Dê Röyal Cîty Öf Silvër Ahli ke- 6,675 |
ooo...
Ada 2 cara. satu ko boleh gunakan SQL connection , kene tahu lah arahan SQL atau pun cara kedua. ko kena convert database tu dulu.. barulah VB boleh buka dan baca database ko tu.. cuba lihat DISINI Kiriman ini telah diubahsuai oleh TJ-Ariff: Jan 16 2008, 12:46 PM -------------------- When GOD Opened the window of mercy, HE asked me; What is your wish for to day?, I said; ALLAH, Please take care of that person who is reading this message. `Ilahi Anta Maqsudi WaRedho Kamatlubi`
|
|
|
|
|
Jan 16 2008, 12:55 PM
Kiriman
#5
|
|
|
Ahli Baru Grup: Learning Kiriman: 16 Penyertaan: 16-January 08 Ahli ke- 41,231 |
dari format .mdb,xley ke access trus..??
kat sini ader salah x : Set WS = DBEngine.Workspaces(0) DbFile = (App.Path & "\Database\dbase.mdb") PwdString = "kambeng" Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString) Set rs = db.OpenRecordset("Other", dbOpenTable) sebab sangkut kat Set db =...... klu nak convert,jadi format pe?? sbb sql ni aku xreti sgt.. bro,thanx.. aku da cnvrt jadi 97.. |
|
|
|
|
Jun 20 2008, 09:52 AM
Kiriman
#6
|
|
|
Ahli Baru Grup: Learning Kiriman: 5 Penyertaan: 20-June 08 Ahli ke- 49,078 |
...klu cnvert database, ade lost certain/effect kat data tak?...
Kiriman ini telah diubahsuai oleh puteri_alien: Jun 20 2008, 09:56 AM |
|
|
|
 Jun 20 2008, 10:05 AM
Kiriman
#7
|
|
|
Ahli Grup: Members Kiriman: 52 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(puteri_alien @ Jun 20 2008, 10:00 AM)  ...klu cnvert database, ade lost certain/effect kat data tak?...  xpastilaaa... rsnye x ilangg kot..hehehhehe...  planet mn ni???
|
|
|
|
|
Jun 20 2008, 12:58 PM
Kiriman
#8
|
|
|
Ahli Baru Grup: Learning Kiriman: 1 Penyertaan: 20-June 08 Dari: negara "Ubah Gaya Hidup" Ahli ke- 49,087 |
try gune dbtools manager
http://www.tucows.com/preview/414975 aku gune convert access ke sql stakat ni ok je.. xde hilang lg data.. -------------------- ~aku orang baru~kalo salah tolong tunjukkan~
|
|
|
|
|
Jun 20 2008, 03:03 PM
Kiriman
#9
|
|
|
Ahli Baru Grup: Learning Kiriman: 5 Penyertaan: 20-June 08 Ahli ke- 49,078 |
aku pnh gak convert....stkat yg aku check mmg xde lost tp takut gak ah sbb melibatkan data yg byk...
so, skrg mnmbhkn keyakinan aku mmg xde lost data.... 
|
|
|
|
 Jun 20 2008, 03:35 PM
Kiriman
#10
|
|
|
Ahli Grup: Members Kiriman: 52 Penyertaan: 17-June 08 Ahli ke- 48,897 |
QUOTE(puteri_alien @ Jun 20 2008, 03:11 PM) aku pnh gak convert....stkat yg aku check mmg xde lost tp takut gak ah sbb melibatkan data yg byk... so, skrg mnmbhkn keyakinan aku mmg xde lost data.... yeeeeeeaaaaaaaaaaaa!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
|
|
|
|
|
Jun 20 2008, 03:48 PM
Kiriman
#11
|
|
|
Ahli Baru Grup: Learning Kiriman: 5 Penyertaan: 20-June 08 Ahli ke- 49,078 |
QUOTE(biey_ila @ Jun 20 2008, 03:43 PM) yeeeeeeaaaaaaaaaaaa!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  menyibuk!!
|
|
|
|
|
|
Lo-Fi Version | Time is now: 13th October 2008 - 04:33 PM |