[es] - Funkcija za spajanje i pretragu baze podataka

itf
Zagreb

Član broj: 59794
Poruke: 993
161.53.237.*

+9 Profil

Funkcija za spajanje i pretragu baze podataka

^{21.01.2011. u 11:13 - pre 161 meseci}

Pozdrav.

Inače programiram u C++u pa ne provodim previše vremena za .NETom. Igrom slučaja za jedan software pišem dokumentaciju pa moram napisati primjer funkcije koja se spaja na ms access bazu podataka, provjerava da li se u nekoj tablici nalazi nekakav string i vraća true ili false (da li je našao ili nije). Znači, prototip bi nekako glasio ovako:

bool ProvjeriStringuBazi(char* baza, char* tablica, char* string);

tj. poziv funkcije bi bio npr.:

bool provjera = ProvjeriStringuBazi("Baza.mdb", "Tablica1", "NekiString");

Opet napominjem, .NET nije moje područje pa se nadam da me nećete razapinjati jer nisam napisao ništa sa svoje strane :)

Bio bih zahvalan za C# i VB.NET primjer.

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
93.184.86.*

ICQ: 325309560

+2 Profil

Re: Funkcija za spajanje i pretragu baze podataka

^{21.01.2011. u 15:19 - pre 161 meseci}

Code (vbnet):

Imports System.Data.OleDb

Public Class Form1

    Public Function ProveraStringa(ByVal baza As String, ByVal tabela As String, ByVal pretraga As String)

        Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/" & baza & ";Persist Security Info=False;"

        Dim oledbcon As New OleDbConnection(con)

        Dim objRead As OleDbDataReader

        Dim cmd As OleDbCommand

        Dim str As String

        Dim str2 As String

        Try

            oledbcon.Open()

            str = "SELECT * FROM " & tabela & " WHERE string ='" & pretraga & "'"

            cmd = New OleDbCommand(str, oledbcon)

            objRead = cmd.ExecuteReader

            While objRead.Read

                str2 = objRead("string").ToString

            End While

            If str2 = "" Then

                MessageBox.Show("Nema podataka")

            Else

                MessageBox.Show("Ima podataka")

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Function

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

        Call ProveraStringa("Baza.mdb", "Tablica1", "NekiString")

    End Sub

End Class

Ovo je VB.NET, C# ne radim, tako da mozes ili da uzmes neki prevodioc ili ako se neko jos javi.

_{[Ovu poruku je menjao Shadowed dana 21.01.2011. u 16:46 GMT+1]}

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu

BrainDemage
gotovan

Član broj: 253985
Poruke: 114
*.dynamic.sbb.rs.

+2 Profil

Re: Funkcija za spajanje i pretragu baze podataka

^{21.01.2011. u 16:04 - pre 161 meseci}

Ovde mozes da prevedes u c# kod.

Život je polje svih mogućnosti.
Ono što izaberete to je vaš život.

Odgovor na temu