PDA

View Full Version : کمک و راهنمایی درباره اتصال vb.net 2005 با بانک اطلاعاتی sql2000



majid_quds
چهارشنبه 06 خرداد 1388, 12:02 عصر
سلام همه دوستان عزیز
من تازه شروع کردم به برنامه نویسی vb.net2005 با بانک اطلاعاتی sql ولی نمی دونم چجوری باید اینکارو بکنم.من بانکم رو داخل sql personal 2000 ساختم ، ولی وقتی می خواهم connection بزنم .سرور sql اصلاً داخل فیلد سرور وجود نداره . باید اینم اضافه کنم که سیستم عامل ویستا سواره رو دستگام.جستجو هم کردم ولی به جایی نرسیدم.لطفاً کمک کنید .گیر همینم :ناراحت::گریه:

Afshin160
چهارشنبه 06 خرداد 1388, 12:30 عصر
سلام ...
روال كلي به صورت زير است ....



Public objconnection As New SqlConnection(strconnection)
Dim objdataset As New DataSet
Dim strsqlforgrid As String = "SELECT tel.CompanyName, tel.DIRECTOR, tel.TELEPHONE, tel.Fax, tel.ADDRESS, tel.DESCRIPTION FROM tel;"
Dim objdataadapter As New SqlDataAdapter(strsqlforgrid, objconnection)

objconnection.Open()
objdataadapter.Fill(objdataset, "tel")
DataGridView1.DataSource = objdataset
DataGridView1.DataMember = "tel"


ولي فقط كانكشن استرينگش رو بايد از آدرس زير پيدا كني كه براي sql 2000 باشه

http://www.connectionstrings.com/sql-server
موفق باشيد

majid_quds
چهارشنبه 06 خرداد 1388, 12:58 عصر
دوستان عزیز من متوجه نمیشم . تو رو جون هر کی دوست دارین ساده بگین . من کلی کتاب دارم همشون از طریق data source گفتن. اگر میشه اونو توضیح بدین.منتظرم . کارم گیره

majid_quds
چهارشنبه 06 خرداد 1388, 17:36 عصر
اگه امکان داره نمونه برنامه ای چیزی واسم بزارین.تصویری .یه چیزی که من بیسواد رو شیرفهم کنه

mojtabaatfi
پنج شنبه 07 خرداد 1388, 00:19 صبح
این تست شدست


Dim con As New SqlConnection
con.ConnectionString = constr
Dim ds4 As New DataSet
If con.State = ConnectionState.Closed Then
con.Open()
End If


cmd = New SqlCommand("select * from lev ")
With cmd
.CommandType = CommandType.Text
.Connection = con
End With
dad.SelectCommand = cmd
cmd.ExecuteNonQuery()
dad.Fill(ds4)




اول کد هم اینه


Imports System.Data
Imports System
Imports System.DateTime
Imports System.Data.SqlClient

Public Class Form2
Dim constr As String = "Database=shokoh;data source =(local);" & _
"Integrated Security=sspi"
Dim dad As New SqlDataAdapter
Dim ds As New DataSet
Dim cmd As New SqlCommand

mojtabaatfi
پنج شنبه 07 خرداد 1388, 00:20 صبح
البته بجای shokoh ویا levیه ترتیب نام بانک و جد.ل مورد نظرت رو بذار

majid_quds
پنج شنبه 07 خرداد 1388, 22:47 عصر
سلام آقا من یکم خیلی گیجم این روزا . با یه نمونه برنامه توضیح بدین .لطفاً