محبوبترینها
آیا میشود فیستول را عمل نکرد و به خودی خود خوب میشود؟
مزایای آستر مدول الیاف سرامیکی یا زد بلوک
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1855089103
نمایش محتوای دیتابیس در یک 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]
[تعداد بازديد از اين مطلب: 1005]
-
گوناگون
پربازدیدترینها