VB-тека - Туторијали на Македонски!

Туторијал за конектирање на база со text box како и можност за следен назад(рекорд), измени, додади, избриши. пронајди, сортирај. Значи кога сакам да додадам сите копчина освен зачувај да бидат неактивни, исто така за пронајди да бара податоци по матичен број и автоматски да ги потполни останатите полиња(Име, презиме, Адреса, Образование, Град)

 

Нешто слично е на тоа што барав јас но ова од десно каде што е базата дали може да биде скриено не активно, се додека нема Барај и ако најде рекорд да се појави тогаш и автоматски да ги потполни текст боксовите, како и кога ќе се додава АДД само Зачувај да биде активно другите да се гледаат ама не активни

 

Океј ќе пробам јас да направам па ако заглавам ќе постирам

 

Значи мене само ми треба како од старт да биде неактивно TabelarabotnikDataGridView_CellContentClick односно истото да се активира кога ќе појдам барај и ќе пребарам по Матичен број дури тогаш да се појави тоа и да ги потполни текст поксовите

 

Private Sub btnzacuvaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzacuvaj.Click
If txtime.Text = "" Or txtprezime.Text = "" Or txtmaticen.Text = "" Or txtadresa.Text = "" Or txtgrad.Text = "" Or txtobr.Text = "" Then
MsgBox("Морате прво да ги потполните сите полиња!", MsgBoxStyle.Information, "ПРАВИЛО!")
Else
MsgBox("Дали сте сигурни дека саката да ги додадете овие информации", MsgBoxStyle.Question, "ЗАЧУВАЈ!")
End If
TabelarabotnikTableAdapter.Insert(txtime.Text, txtprezime.Text, txtmaticen.Text, txtadresa.Text, txtgrad.Text, txtobr.Text)
TabelarabotnikTableAdapter.Fill(Me.NajdirabotnikDataSet.tabelarabotnik)
End Sub
End Class


иако имам дефинирано да не додава пак додава

 

TabelarabotnikDataGridView_CellContentClick како да биде ова сокриено, цело време освен кога ќе појдам барај и да најде запис и да се појават во него и во текст боксовите и зашто од твојон туторијал не сака на пр. за зачувај или додади како е кај тебе не е битно, значи го дава долу во TabelarabotnikDataGridView_CellContentClick но не го дава во базата ime_na_baza.mdb креирана во акцесс јас сакам и таму да го дава тоа

Mислам дека е вака нешто но не сум сигурен... а за вака треба и дата да не биди избришано тоа што го избриша на почетак

Data1.Recorddata.Uptade()

 

Да океј но дали ќе ги зачучува информациите што ги додавам во базата преку програма не само кога ги гледам туку и да ја отворам базата преку акцесс пр. и да ги видам сите тие инфос

 

Значи еве цел код до кај што сум стасан некоја помош за следен рекорд, предходен прв и последен избриши и измени рекорд во база... како и да можи да ми бара преку база каде што е btnnajdi и комбо боксот вака не наоѓа како и истите да си store податоците во базата а не само во Girld во програмата да можам да ја отворам базата во акцес и да ги има сите податоци кои се внесени преку програмта.


Public Class frmnajdirabotnik

Private Sub TabelarabotnikBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TabelarabotnikBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.NajdirabotnikDataSet)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'NajdirabotnikDataSet.tabelarabotnik' table. You can move, or remove it, as needed.
TabelarabotnikTableAdapter.Fill(Me.NajdirabotnikDataSet.tabelarabotnik)
TabelarabotnikDataGridView.Visible = False
btnzacuvaj.Enabled = False
End Sub

Private Sub btnizlez_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizlez.Click
If MsgBox("Дали сте сигурни дека сакате да излезите ?", MsgBoxStyle.YesNo, "ИЗЛЕЗ") Then
Me.Close()
End If
End Sub

Private Sub btniscisti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btniscisti.Click
If MsgBox("Дали сте сигурни дека сакате да ги исчистите полињата", MsgBoxStyle.YesNo, "ИСЧИСТИ!") Then
txtime.Text = ""
txtprezime.Text = ""
txtmaticen.Text = ""
txtadresa.Text = ""
txtgrad.Text = ""
txtobr.Text = ""
End If

End Sub

Private Sub btndodadi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndodadi.Click
btnprv.Enabled = False
btnpredhoden.Enabled = False
btnsleden.Enabled = False
btnposleden.Enabled = False
btnizlez.Enabled = False
btniscisti.Enabled = False
btnizbrisi.Enabled = False
btnizmeni.Enabled = False
btnnajdi.Enabled = False
TabelarabotnikDataGridView.Visible = True
btnzacuvaj.Enabled = True
End Sub

Private Sub btnzacuvaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzacuvaj.Click
If txtime.Text = "" Or txtprezime.Text = "" Or txtmaticen.Text = "" Or txtadresa.Text = "" Or txtgrad.Text = "" Or txtobr.Text = "" Then
MsgBox("Морате прво да ги потполните сите полиња!", MsgBoxStyle.Information, "ПРАВИЛО!")
Else
MsgBox("Дали сте сигурни дека саката да ги додадете овие информации", MsgBoxStyle.Question, "ЗАЧУВАЈ!")
TabelarabotnikTableAdapter.Insert(txtime.Text, txtprezime.Text, txtmaticen.Text, txtadresa.Text, txtgrad.Text, txtobr.Text)
TabelarabotnikTableAdapter.Fill(Me.NajdirabotnikDataSet.tabelarabotnik)
txtime.Text = ""
txtprezime.Text = ""
txtmaticen.Text = ""
txtadresa.Text = ""
txtgrad.Text = ""
txtobr.Text = ""
btnprv.Enabled = True
btnpredhoden.Enabled = True
btnsleden.Enabled = True
btnposleden.Enabled = True
btnizlez.Enabled = True
btniscisti.Enabled = True
btnizbrisi.Enabled = True
btnizmeni.Enabled = True
btnnajdi.Enabled = True

End If
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub TabelarabotnikDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TabelarabotnikDataGridView.CellContentClick

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaraj.SelectedIndexChanged
If btnbaraj.Text = "" Then
TabelarabotnikDataGridView.Visible = False
End If
If Not btnbaraj.Text = "" Then
TabelarabotnikDataGridView.Visible = True
End If
txtime.Enabled = False
txtprezime.Enabled = False
txtadresa.Enabled = False
txtgrad.Enabled = False
txtobr.Enabled = False
End Sub

Private Sub btnnajdi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnajdi.Click
If btnbaraj.Text = "" Then
TabelarabotnikDataGridView.Visible = False
End If
If Not btnbaraj.Text = "" Then
TabelarabotnikDataGridView.Visible = True
Else
txtime.Enabled = False
txtprezime.Enabled = False
txtadresa.Enabled = False
txtgrad.Enabled = False
txtobr.Enabled = False
End If
End Sub
End Class

 

само престани со тоа : поздрав до сите народи. xD
и нормално збори. како да шепотиш се осеќаш....

 

Како е код на Да а како за Не, иначе кодот што го користиме и јас и ти не работи т.е не ги зачуваува рекордите во базата. кога ќе ја отвориме преку акцес

 

океј сега уште ми треба за дата рекордингот да ми листа прв предходен следен последен ова она i gotov sum

 

а ЗА БАРАЈ ЗНАЧИ САКАМ ДА ДАВА И ВО Girld и автоматски да ги потполни текст боксовите