vb2008دە ساندان ئامبىرىنى كۆرسىتىپ ئۇلاشتىن ياردەم

tukkuzsaray · ۋاقتى: 2011-2-14 20:32:19

بۇ مەن تۈزۈپ باققان كىچىك پىروگىرامما بولۇپ مەقسىدىم ئۇلىندىغان سانداننى كۆرسىتىپ بىرىپ ئۇلاش ئىدى. تۈۋەندىكىسى چىققان خاتالىق، ئۇستىلار كۈرۈپ بېقىڭلار مەن قەيىرىنى خاتا قىلدىم.

بۇ مەن يازغان كود.
كىرەكلىك كونتىرول : كۇنۇپكا 2دانە، تىكىسىت كۆزنىكى 3دانە، لېيبىل 2دانە ۋە DataGridView

[align=left]Imports System.Data.OleDb
Module Module1
Dim a As String = Form1.TextBox1.Text
Dim b As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|"
Dim c As String = ";Jet OLEDB:Database PassWord="
Dim d As String = Form1.TextBox3.Text
Dim e As String = Form1.TextBox2.Text
Dim ulinix As String = "b" & "a" & "c" & "e"
Public con As New OleDbConnection(ulinix)
Public adapter As New OleDbDataAdapter("select * from d", con)
Public jad As DataTable
Sub ula()
con.Open()
jad = New DataTable("d")
adapter.Fill(jad)
con.Close()
End Sub
Sub Saklax()
Try
Dim builder As New OleDbCommandBuilder(adapter)
builder.QuotePrefix = "["
builder.QuoteSuffix = "]"
builder.GetUpdateCommand()
builder.GetDeleteCommand()
builder.GetInsertCommand()
adapter.Update(jad)
Call ula()
MessageBox.Show("ساقلاندى")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Module[/align]
Imports System.Data.OleDb
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim mydlg As New OpenFileDialog()
mydlg.CheckFileExists = True
mydlg.Filter = "数据文件(*.mdb)|*.mdb|数据文件(*.xls)|*.xls"
If mydlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = mydlg.FileName
End If
End Sub
[align=left] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call ula()
Me.DataGridView1.DataSource = jad
Me.DataGridView1.Font = New Font("ukij tuz tom", "10")
End Sub
Sub okux()
Dim a As Byte
a = Me.DataGridView1.SelectedRows(0).Cells("daris").Value
Dim kur As DataRow = jad.Select("daris=" + a.ToString)(0)
TextBox2.Text = kur("daris")
TextBox3.Text = kur("wakit")
End Sub
End Class[/align]

مەزمۇننى كۆچۈرۈۋېلىش

xjwindow · ۋاقتى: 6 كۈن بۇرۇن

مەنغۇ مۇشۇ ئۇلىنىشتا مەسىلە باردەك ھېس قىلدىم .Dim ulinix As String = "b" & "a" & "c" & "e"

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

vb2008دە ساندان ئامبىرىنى كۆرسىتىپ ئۇلاشتىن ياردەم