Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Data
- Imports System.Data.OleDb
- Imports System.Data.SqlClient
- Public Class demoform
- Dim pass As String
- Dim user As String
- Dim dr As DataRow
- Dim dt As DataTable
- Dim dsResult As New DataSet
- Dim TableView As DataView
- Dim objDataAdapter As SqlDataAdapter
- Dim sConnection As String
- Dim cmdBuilder As SqlCommandBuilder
- Private Sub demoform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- LoginDialog.ShowDialog()
- sConnection = "Server=PRESONIC-PC\FUNSQL;Database=pre_accounting;Uid=" & user & "; Pwd=" & pass & ";"
- objDataAdapter = New SqlDataAdapter("SELECT * FROM dbo.medtype", sConnection)
- If Not IsNothing(objDataAdapter) Then
- ' in order to use command builder, there must be a primary key in the table
- cmdBuilder = New SqlCommandBuilder(objDataAdapter)
- objDataAdapter.Fill(dsResult)
- TableView = dsResult.Tables(0).DefaultView
- dgvplay.DataSource = TableView
- TextBox1.DataBindings.Add(New Binding("Text", dsResult.Tables(0), "med_name"))
- End If
- End Sub
- Public Sub userpass_pass(ByVal the_user As String, ByVal the_pass As String)
- user = the_user
- pass = the_pass
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- objDataAdapter.Update(dsResult, dsResult.Tables(0).TableName)
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- 'dr = dsResult.Tables(0).Rows(1)
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement