منظورم از شماره ديتابيس همون اتونامبر هستش كه از 29 شروع شده . چيكار كنم كه از يك شروع بشه ؟ آيا بايد از اول يه ديتا بيس درست كنم ؟
ببينيد من يه پروژه آرشيو سي دي دارم و يه پروژه لوگين . كه كار هر دو تموم شده است و هردو به صورت جداگانه به خوبي كار مي كنند . ولي وقتي مي خواهم اين دو را با هم تركيب كنم مثلا يا پروژه لوگين را به پروژه آرشيو و يا پروژه آرشيو را به پروژه لوگين اضافه كنم تا كاربر براي ورود به پروژه آرشيو حتما پسورد بده ديگه كار نمي كنه . البته من يه تازه وارد تازه واردم . اين پروژه رو هم از روي پروژه هاي پيش ساخته درست كردم . ضمنا اگر بخواهيد مي توانم هر دو را آپلود كنم تا مشكل را از نزديك ببينيد . ولي فعلا مشكل را برايتان توضيح مي دهم . كه اگر اين مشكل حل بشه ديگه كار تمومه .
مشكل اضافه كردن لوگين به آرشيو :
وقتي من لوگين (فرم و ماژول) رو به آرشيو اضافه مي كنم و بعد از اجرا بر روي باتن لوگين كليك مي كنم اين ارور رو ميده :
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
كمك كنيد تا مشكلم حل بشه .
ممنون
ببينيد من يه پروژه آرشيو سي دي دارم و يه پروژه لوگين . كه كار هر دو تموم شده است و هردو به صورت جداگانه به خوبي كار مي كنند . ولي وقتي مي خواهم اين دو را با هم تركيب كنم مثلا يا پروژه لوگين را به پروژه آرشيو و يا پروژه آرشيو را به پروژه لوگين اضافه كنم تا كاربر براي ورود به پروژه آرشيو حتما پسورد بده ديگه كار نمي كنه . البته من يه تازه وارد تازه واردم . اين پروژه رو هم از روي پروژه هاي پيش ساخته درست كردم . ضمنا اگر بخواهيد مي توانم هر دو را آپلود كنم تا مشكل را از نزديك ببينيد . ولي فعلا مشكل را برايتان توضيح مي دهم . كه اگر اين مشكل حل بشه ديگه كار تمومه .
مشكل اضافه كردن لوگين به آرشيو :
وقتي من لوگين (فرم و ماژول) رو به آرشيو اضافه مي كنم و بعد از اجرا بر روي باتن لوگين كليك مي كنم اين ارور رو ميده :
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
كمك كنيد تا مشكلم حل بشه .
ممنون
