تعریف دیتابیس

[BlueRose]

سلام

یه سوال خیلی اماتوری
چطوری واسه برنامم دیتا بیس تعریف کنم
اگه مقاله یا اموزشی سراغ دارید ممنون میشم لینکش رو بهم بدید
یا اگه کد هست یا هر چیز دیگه ای
چه جوریش یا تحت چه برنامه ای (Access & SQL) زیاد فرق نمیکنه
فقط میخوام وارد این موضوع بشم مطمئنم کم کم یاد میگیرم

[kasrakhan]

می خوای با کدنویسی دیتابیس بسازی یا دستی ؟

[kasrakhan]

http://www.iranvig.com/3374.html
اینجا رو ببین ! این ایجاد کردن دیتا بیس اکسس با کد نویسیه ! دستی هم خواستی همینجا توضیح می دم

[BlueRose]

سلام

از بابت جواب خیلی تشکر

خیلی ممنون میشم اگه روش دستیش رو هم توضیح بدید


روی این لینک که کلیک میکنم میره تویه صفحه دیگه
اما اون چیزیش که شما گفتی رو داونلود کردم

Create DataBase
توسط اين برنامه مي تونيد تحت وي بي يه ديتا بيس اكسس بسازيد
اگه توش تغييراتي انجام بديد ميشه مثلا نام فيل ها از يه تكست باكس گرفت و .....!‌ خودتون ببينيد !‌

[Mohandese_Javan]

سلام!
شما منظورت از تعریف دیتابیس چیه؟
می خوای دیتابیس رو با ویبی بسازی یا دیتابیس موجود رو باهاش اتصال ایجاد کنی؟

[BlueRose]

هر 2 تاش اگه لطف کنید

اما در اصل اون چیزی که میخوام ارتباط بینشونه

[negar_shey2nak]

سلام
من یک برنامه نوشتم که با پایگاه داده های اکسس کار میکنه...
ولی ناقصه ممنون میشم یکی کمک کنه!!!!
ولی خیلی سریع....اگه هر کی می تونه با این ایمیل با من تماس بگیره تا برنامه را براش بفرستم
negar_shey2nak@yahoo.com

[Mohandese_Javan]

سلام!
نمیدونم بانک شما اکسسه یا اس کیو ال. ولی این یه نمونه کد اتصال به بانک اس کیو ال:

کد:

Public Sub Connect()
'
'Put Connection Variables :
ServerName = "(Local)"
DatabaseName = "DaroBank"
UserName = "sa"
Password = ""
'
'Specify the OLEDB provider:
DB.Provider = "SQLOLEDB"
'
'Set Connection Properties:
DB.Properties("Data Source").Value = ServerName
DB.Properties("Initial Catalog").Value = DatabaseName
'
DB.Properties("User ID").Value = UserName
DB.Properties("Password").Value = Password
'
'Open the DataBase:
DB.Open
'
End Sub

[align=right]
اگه سوالی بود یا منظورت این نبود بگو اگه تونستم کمک کنم

[BlueRose]

سلام
خیلی ممنون بخاطر جواب
و خیلی معذرت بخاطر اینکه نتونستم چند وقتی به این تاپیک سر بزنم
راستش من تا اینجا پیش رفتم


Dim I As Integer
Dim Cap As String
Dim nGro As Integer
rs.Open "[BlueRose]", db, adOpenStatic, adLockReadOnly
For I = 0 To rs.RecordCount
If rs.EOF Then Exit For
If Not IsNull(rs![Name]) Then Cap = rs![Name]
If Not rs.EOF Then rs.MoveNext
If Not rs.RecordCount = 0 Then
CmbName.AddItem Cap, nGro
nGro = nGro + 1
End If
Next
rs.Close
CmbName.ListIndex = 0
البته من قبلا بوسيله کنترل Data کار ميکردم واسه همين اين تغيير روش دو تا مشکل ديگه واسم پيش اورد

وقتي از کومبو باکس يه آيتمي (Name) رو انتخاب ميکنم ميخوام فيلد (Age) همون ID رو تو تکست باکس ببينم يا فيلد (Country) همون ID رو تو ليست باکس ببينم

يه چيز ديگه
ميخوام با زدن يگ دگمه فقط آيتمهايي (Name) در کومبو ديده بشه که مثلا (Country) اونها Iran باشه