ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





صفحه 2 از 2 نخست 12
نمایش نتایج: از 11 به 13 از 13
  1. #11
    program
    كاربر عادي
    تاریخ عضویت
    2014 Nov
    نوشته ها
    2
    0
    0
    ا سلام من یه پروژه بیمارستان خریدم . ولی از این قسمت کد سر در نمیارم میشه کمک کنید .
    Imports Microsoft.VisualBasic
    Imports System
    Imports System.Collections.Generic
    Imports System.ComponentModel
    Imports System.Data
    Imports System.Drawing
    Imports System.Linq
    Imports System.Text
    Imports System.Windows.Forms
    Imports System.Data.SqlClient

    Namespace bimarestan
    Partial Public Class Form2
    Inherits Form
    Public Sub New()
    InitializeComponent()
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim connection_string As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=""" & Application.StartupPath & "\kilinik.mdf"";Integrated Security=True;Connect Timeout=30;User Instance=True"
    Using myconnection As New SqlConnection(connection_string)
    Using mycommand As New SqlCommand()
    myconnection.Open()
    mycommand.Connection = myconnection
    Dim q As String = "insert into bimran values('" & TextBox0.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
    mycommand.CommandText = q
    mycommand.ExecuteNonQuery()
    MessageBox.Show("اطلاعات با موفقیت در پایگاه ثبت شد")
    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
    TextBox5.Clear()
    End Using
    End Using
    gridview()

    End Sub
    Public Sub gridview()
    Dim connection_string As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=""" & Application.StartupPath & "\kilinik.mdf"";Integrated Security=True;Connect Timeout=30;User Instance=True"
    Using myconnection As New SqlConnection(connection_string)
    Using mycommand As New SqlCommand()
    myconnection.Open()
    mycommand.Connection = myconnection
    Dim q As String = "select * from bimran"
    mycommand.CommandText = q
    Dim myreader As SqlDataReader = mycommand.ExecuteReader()
    DataGridView1.Rows.Clear()
    If myreader.HasRows Then
    Do While myreader.Read()
    DataGridView1.Rows.Add(myreader(1).ToString(), myreader(2).ToString(), myreader(3).ToString(), myreader(4).ToString(), myreader(5).ToString(), myreader(6).ToString())
    Loop

    End If
    End Using
    End Using
    End Sub

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    gridview()
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub TextBox0_TextChanged(sender As Object, e As EventArgs) Handles TextBox0.TextChanged

    End Sub
    End Class
    End Namespace
    لطفا کمک کنید .
    با تشکر .
  2. #12
    Fat
    Fat
    كاربر عادي
    تاریخ عضویت
    2017 Mar
    نوشته ها
    2
    0
    0
    Shift+alt+d رو بگیری پیش toolbox دیتا سورست رو نشون میده یا از منو data رویه گزینه ی show data source کلیک کن
  3. #13
    Fat
    Fat
    كاربر عادي
    تاریخ عضویت
    2017 Mar
    نوشته ها
    2
    0
    0
    نقل قول نوشته اصلی توسط ehsan1370 [برای نمایش لینک باید عضو شوید. ]
    خواهش میکنم یکی کمک کنه. نمیدونم باید چیکار کنم؟
    از منوی data رویه گزینه ی show data source کلیک کن بعد میتونی دیتا سورس و میش toolbox ببینی
صفحه 2 از 2 نخست 12
نمایش نتایج: از 11 به 13 از 13

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2