انتخاب بیشترین مقدار در یک فیلد
Dim sql As String = "Select MAX(PhoneNom) from tblPhone"
Dim dAda As SqlCommand = New SqlCommand(sql, Connection)
Connection.Open()
Dim max As String = dAda.ExecuteScalar().ToString
Connection.Close()
انتخاب بیشترین مقدار در یک فیلد
Dim sql As String = "Select MAX(PhoneNom) from tblPhone"
Dim dAda As SqlCommand = New SqlCommand(sql, Connection)
Connection.Open()
Dim max As String = dAda.ExecuteScalar().ToString
Connection.Close()
آخرین ویرایش به وسیله aliebrahimi1900 : یک شنبه 03 خرداد 1394 در 22:23 عصر
به دست آوردن مجموع اعداد یک فیلد در جدول
Dim comSelect As String = "Select Sum(PhoneNom) From tablePhone"
Dim sqlComSelect As SqlCommand = New SqlCommand(comSelect, Connection)
Connection.Open()
Dim jPhoneNom As String = sqlComSelect.ExecuteScalar().ToString
Connection.Close()
چند دستور sql
محاسبه جمع و میانگین دو فیلد از یک جدول وثبت در جدول دیگر
در این مثال دو جدول داریم به نامهای tableNameJam و tableNameHesab که در جدول حساب حسابهای شخص با یک آیدی مشخص نگه میداریم و در جدول دوم پیوسته جمع حساب و میانگین حساب شخص رو نگه میداریم
Dim ID As String = "1"
Dim SQLSTR As String = "DECLARE @ID int ;set @ID = " + ID + ";Update tableNameJam Set jameHesabFildName = (Select Sum(hesabFildName1) From tableNameHesab Where ID = @ID)," _
+ "mianginHesabFildName = (Select Avg(hesabFildName1) From tableNameHesab Where ID = @ID) Where nID = @ID ;"
Dim sqlcom As SqlCommand = New SqlCommand(SQLSTR, Connection)
Connection.Open()
sqlcom.ExecuteScalar()
Connection.Close()
جستجوی زیر رشته در رشته های سطرهای جدول
انتخاب فیلدهای رشته ای دارای زیر رشته مورد نظر
در زیر نام سطرهایی که در فیلد Name رشته های شامل "Al" میباشند انتخاب شده اند
Dim sql As String = "Select Name From tableName Where Name like '%Al%'"
Dim dAda As SqlDataAdapter = New SqlDataAdapter(sql, Connection)
Dim table As New DataTable
dAda.Fill(table)
DataGridView1.DataSource = table
دوست عزیز سیستم دم دست نیست این برنامه مبدل vb به C# هستش دانلود کن این سورسو تبدیل کن دقیقه یه خورده باید سورس تبدیل شده رو درستش کنی اگه باز مشکل داشتی من عصر خونم برات درستش میکنم
http://p30download.com/fa/entry/54527/
یه سوال
سلام
مگه primary key نباید خودش تکمیل بشه پس چرا تو این کد ارور میده که ID خالیه؟
Friend con As SqlConnection = New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=" & My.Application.Info.DirectoryPath & "\GameData.mdf;Integrated Security=True;Connect Timeout=30") Friend cmd As SqlCommand
cmd = New SqlClient.SqlCommand("Insert Into Account (RealName,AccountName,AccountPass) Values ('" & txtRName.Text & "','" & txtUser.Text & "','" & txtPass.Text & "') ", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
توجه کنید توی تعریف تیبل id به صورت primary key تعریف شده
با تشکر
دوست عزیز این به ایجاد دیتا بیس و جدول بستگی داره که فیلد ID که PRIMARY KEY هستش رو به صورت IDENTITY تعریف کرده باشید یا خیر
اگه IDENTITY باشه خودش بهش یه ID میده که به ID قبلی یه دونه اضافه کرده
در غیر این صورت اگه IDENTITY نباشه باید حتما در زمان ایجاد سطر جدید به ID هم مقدار بدی
موفق باشید
اضافه کردن فیلد ( ستون ) جدید به جدول
Dim comAddF As String = "ALTER TABLE tblName ADD columnName NVARCHAR(20) NULL"
Dim sqlComAddF As SqlCommand = New SqlCommand(comAddF, Connection)
Connection.Open()
sqlComAddF.ExecuteScalar()
Connection.Close()
پروژه بسیار عالی برای درس پایگاه داده همراه با ER
http://bia2projeh.ir/product/380/%D9...%87%D8%A7.html
http://bia2projeh.ir/product/379/%D9...%AF%D9%87.html
خیلی عالی بود .تشکر از پست خوبتون
auto-complete TextBox از دیتا بیس
یک textbox داریم که می خواهیم زمانی که کاربر داخل آن تایپ میکند برنامه گزینه ها رو از داخل دیتا بیس پیش بینی کند
کد زیر را در قسمت لود فورم مینویسیم
Dim comSelectA As String = "Select Name From tableName"
Dim sqlComSelectA As SqlDataAdapter = New SqlDataAdapter(comSelectA, Connection)
Dim DataTableName As New DataTable
Connection.Open()
sqlComSelectA.Fill(DataTableName)
Connection.Close()
Dim MySource As New AutoCompleteStringCollection()
For Each item As DataRow In DataTableName.Rows
MySource.AddRange(New String() _
{
item(0).ToString
})
Next
With TextBox1
.AutoCompleteCustomSource = MySource
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
End With
با سپاس فروان مطالب عالی هستن واقعا مرسی برادر گرامی .