Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 2.678 pregleda

Najnovija ↓

Funkcija za spajanje i pretragu baze podataka 21.01.2011. u 12:13 · pre 192 meseca #1
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.
Re: Funkcija za spajanje i pretragu baze podataka 21.01.2011. u 16:19 · pre 192 meseca
izmenjeno 1 put, poslednji put Shadowed 21.01.2011. u 16:46
  1. Shadowed21.01.2011. u 16:46zapis iz teksta poruke
#2
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.
Potpis
"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme