تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان میشوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1835477711
نمایش محتوای دیتابیس در یک Textbox در VB.Net از دیتابیس sql server -
واضح آرشیو وب فارسی:سایت ریسک: نمایش محتوای دیتابیس در یک Textbox در VB.Net از دیتابیس sql server jbasoft 11 دي 1386, 19:15چطور می شه در VB.Net از دیتابیسی که در sql server درست کردی استفاده کرد... البته برای نمایش دادن محتوای دیتا بیس در یک Textbox ؟ یا بهتر این طوری بگم که : چطور می شه از کد نویسی در VB.net برای نمایش محتوای دیتابیس در یک Textbox استفاده کرد.؟ saalek110 11 دي 1386, 22:17با سلام. Imports System.Data.SqlClient Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim my_connectionstring As String Dim my_connection As SqlConnection Dim mySqlCommand As SqlCommand Dim mySqlDataReader As SqlDataReader my_connectionstring = "Data Source=نام کامپیوتر شماsqlexpress;Initial Catalog=msdb;Integrated Security=True" my_connection = New SqlConnection(my_connectionstring) mySqlCommand = my_connection.CreateCommand() mySqlCommand.CommandText = "SELECT * FROM Table1 " my_connection.Open() mySqlDataReader = mySqlCommand.ExecuteReader() mySqlDataReader.Read() TextBox1.Text = mySqlDataReader("a 1").ToString TextBox2.Text = mySqlDataReader("a 2").ToString TextBox3.Text = mySqlDataReader("a 3").ToString my_connection.Close() End Sub End Class قسمتهای قرمز مربوط به نامهای دیتابیس و تیبل و ستونها(فیلدها) ی من است. شما متناسب با مال خود تغییر دهید. قسمت بنفش نام کامپیوتر است که برای اطلاعات بیشتر به این پست مراجعه کنید: قسمتهای آبی ابزارهایی است که باید به فرم بیافزایید.(تیبل هم 3 فیلد داشت و 3 تکست باکس افزودم) برنامه بالا برای وصل شدن به sql server اکسپرس است. همان که همراه ویژوال استودیو 2005 نصب می شود. در کد بالا در my_connectionstring می بینید که کلمه sqlexpress قید شده. برای sql server 2000 یا 2005 ممکن است متفاوت باشد. Imports بالای برنامه فراموش نشود. برنامه بالا رکورد اول من را در تکست باکس ها نمایش می دهد. برای نمایش همه آنها از ابزارهای دیگر بهتر است استفاده شود. کد زیر هم شاید کمک کننده باشد برای حلقه سازی: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click sqlstr = "SELECT * FROM emp" Dim i As Integer i = 0 sqlCmd = New SqlCommand(sqlstr, sqlCon) r = sqlCmd.ExecuteReader Do While r.Read() DataGridView1.RowCount = DataGridView1.RowCount + 1 i = i + 1 Loop r.Close() sqlCmd.Dispose() sqlstr = "SELECT * FROM emp" i = 0 sqlCmd = New SqlCommand(sqlstr, sqlCon) r = sqlCmd.ExecuteReader Do While r.Read() DataGridView1.Item(0, i).Value = r("empno") DataGridView1.Item(1, i).Value = r("ename") DataGridView1.Item(2, i).Value = r("deptno") i = i + 1 Loop End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1001]
-
گوناگون
پربازدیدترینها