ahrimanvb
یک شنبه 07 آبان 1385, 18:03 عصر
1- منظورم از شماره دیتابیس همون اتونامبر هستش که از 29 شروع شده . چیکار کنم که از یک شروع بشه ؟ آیا باید از اول یه دیتا بیس درست کنم ؟
2- ببینید من یه پروژه آرشیو سی دی دارم و یه پروژه لوگین . که کار هر دو تموم شده است و هردو به صورت جداگانه به خوبی کار می کنند . ولی وقتی می خواهم این دو را با هم ترکیب کنم مثلا یا پروژه لوگین را به پروژه آرشیو و یا پروژه آرشیو را به پروژه لوگین اضافه کنم تا کاربر برای ورود به پروژه آرشیو حتما پسورد بده دیگه کار نمی کنه . البته من یه تازه وارد تازه واردم . این پروژه رو هم از روی پروژه های پیش ساخته درست کردم . ضمنا اگر بخواهید می توانم هر دو را آپلود کنم تا مشکل را از نزدیک ببینید . ولی فعلا مشکل را برایتان توضیح می دهم . که اگر این مشکل حل بشه دیگه کار تمومه .
مشکل اضافه کردن لوگین به آرشیو :
وقتی من لوگین (فرم و ماژول) رو به آرشیو اضافه می کنم و بعد از اجرا بر روی باتن لوگین کلیک می کنم این ارور رو میده :
Private Sub cmdLogin_Click()
a = App.Path & "\K2.gtx"
b = GetPasswordFromFile(a)
If txtPass.Text <> b Then
txtPass.Text = vbNullString
MsgBox "رمز عبور صحیح نمی باشد" & vbCrLf & "لطفا یک بار دیگر رمز صحیح را وارد نمایید", vbCritical + vbOKOnly, "خطا"
Else
Unload Me
frmMain.Show
End If
End Sub
ولی وقتی آرشیو رو به لوگین اضافه می کنم این ارور رو میده .
اولا اینکه کد های درون ماژول مربوط به آرشیو که
Public b As ADODB.Recordset
Public a As ADODB.Connection
می باشد خود به خود پاک میشه و وقتی هم که بصورت دستی اون رو وارد می کنم ارور میده .
ارور اون اینه :
Private Sub Form_Load()
LoadKeyboardLayout "00000429", 1
Set a = New ADODB.Connection
a.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bank.mdb"
a.Open
Set b = New ADODB.Recordset
b.Open "film", a, adOpenKeyset, adLockPessimistic, adCmdTable
Set Text1.DataSource = b
Text1.DataField = "ÔãÇÑå"
Set Text2.DataSource = b
Text2.DataField = "ãæÖæÚ"
Set Text3.DataSource = b
Text3.DataField = "ßÏ"
Set Text11.DataSource = b
Text11.DataField = "ßÇäæä"
Set Text4.DataSource = b
Text4.DataField = "ÊÇÑíÎ"
Set Text6.DataSource = b
Text6.DataField = "äæÚ"
Set Text8.DataSource = b
Text8.DataField = "ÝÑãÊ"
Set Text9.DataSource = b
Text9.DataField = "ÊÚÏÇÏ"
Set Text10.DataSource = b
Text10.DataField = "ÊæÖíÍÇÊ"
'Çí ÌäÊ
'dj = App.Path & "\merlin.acs"
Call asa.Characters.Load("Merlin", bj & "Merlin.acs")
'-----------------------------------------------------
End Sub
کمک کنید تا مشکلم حل بشه .
ممنون
2- ببینید من یه پروژه آرشیو سی دی دارم و یه پروژه لوگین . که کار هر دو تموم شده است و هردو به صورت جداگانه به خوبی کار می کنند . ولی وقتی می خواهم این دو را با هم ترکیب کنم مثلا یا پروژه لوگین را به پروژه آرشیو و یا پروژه آرشیو را به پروژه لوگین اضافه کنم تا کاربر برای ورود به پروژه آرشیو حتما پسورد بده دیگه کار نمی کنه . البته من یه تازه وارد تازه واردم . این پروژه رو هم از روی پروژه های پیش ساخته درست کردم . ضمنا اگر بخواهید می توانم هر دو را آپلود کنم تا مشکل را از نزدیک ببینید . ولی فعلا مشکل را برایتان توضیح می دهم . که اگر این مشکل حل بشه دیگه کار تمومه .
مشکل اضافه کردن لوگین به آرشیو :
وقتی من لوگین (فرم و ماژول) رو به آرشیو اضافه می کنم و بعد از اجرا بر روی باتن لوگین کلیک می کنم این ارور رو میده :
Private Sub cmdLogin_Click()
a = App.Path & "\K2.gtx"
b = GetPasswordFromFile(a)
If txtPass.Text <> b Then
txtPass.Text = vbNullString
MsgBox "رمز عبور صحیح نمی باشد" & vbCrLf & "لطفا یک بار دیگر رمز صحیح را وارد نمایید", vbCritical + vbOKOnly, "خطا"
Else
Unload Me
frmMain.Show
End If
End Sub
ولی وقتی آرشیو رو به لوگین اضافه می کنم این ارور رو میده .
اولا اینکه کد های درون ماژول مربوط به آرشیو که
Public b As ADODB.Recordset
Public a As ADODB.Connection
می باشد خود به خود پاک میشه و وقتی هم که بصورت دستی اون رو وارد می کنم ارور میده .
ارور اون اینه :
Private Sub Form_Load()
LoadKeyboardLayout "00000429", 1
Set a = New ADODB.Connection
a.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bank.mdb"
a.Open
Set b = New ADODB.Recordset
b.Open "film", a, adOpenKeyset, adLockPessimistic, adCmdTable
Set Text1.DataSource = b
Text1.DataField = "ÔãÇÑå"
Set Text2.DataSource = b
Text2.DataField = "ãæÖæÚ"
Set Text3.DataSource = b
Text3.DataField = "ßÏ"
Set Text11.DataSource = b
Text11.DataField = "ßÇäæä"
Set Text4.DataSource = b
Text4.DataField = "ÊÇÑíÎ"
Set Text6.DataSource = b
Text6.DataField = "äæÚ"
Set Text8.DataSource = b
Text8.DataField = "ÝÑãÊ"
Set Text9.DataSource = b
Text9.DataField = "ÊÚÏÇÏ"
Set Text10.DataSource = b
Text10.DataField = "ÊæÖíÍÇÊ"
'Çí ÌäÊ
'dj = App.Path & "\merlin.acs"
Call asa.Characters.Load("Merlin", bj & "Merlin.acs")
'-----------------------------------------------------
End Sub
کمک کنید تا مشکلم حل بشه .
ممنون