تسجيل الدخول

مشاهدة النسخة كاملة : استفساران عن VB6


Janna
11-09-2005, 09:23 PM
السلام عليكم

تحية طيبة لمشرفي وأعضاء وزوار المنتدى ، عندي استفساران وأرجوا أن أجد الحل عنكم:


الأول

أستخدم الكود:



Data1.DatabaseName = App.Path & "\db1.mdb”

Data1.RecordSource = "Table1”





لكن عينت كلمة سر لقاعدة البيانات ، ما هو التغيير اللازم على الكود ؟



والثاني:

أقوم بعملية حسابية وأخزن الناتج في متغير لم أحدد نوعه.

Dim Result1



كيف أتحكم في عدد الأرقام التي تظهر بعد الفاصلة.
Thaern
12-09-2005, 06:07 PM
بالنسبة للسؤال الثاني كل ما عليك عملو هو انك تحدد تنسيق الرقم

مثلا


Text1.Text = Format(Result1, "#.##")

حيث انت اشارة السلم الي على اليمين ال ## تحدد عدد الخانات الي بعد الفاصلة

يعني لو كان Result1 = 12345.12345

و حطيت
Text1.Text = Format(Result1, "#.##")

هيصير 12345.12


اما بالنسبة للسؤال الاول بدك تستنى رد احد الاخوى المختصين في قواعد البيانات..
اي اسئلة عامة احنا جهزين!
Janna
13-09-2005, 10:47 AM
السلام عليكم
شكراً على الرد:)
ولكني أتساءل ألا توجد طريقة تمكنني من ذلك من خلال تعريف المتغير ، لأني لا أقوم بطباعته في تكست بوكس إنما في ملف أكسل
محمد زغلول
26-09-2005, 08:02 PM
أخي بالنسبة للسؤال الأول



Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.Connect = ";PWD=Your password"
Data1.Source = "table"


حيث your password هي كلمة السر

و Table هو اسم الجدول