[VB] Data1.Recordset.Addnew

[Piels]

Ik heb een database in Acces gemaakt, en dan in mijn VB progje een knop waar je iets nieuws kan toevoegen.

code:

prompt$ = "Your About To Add A New Movie To The Database."
Title$ = "Add Movie"
Reply = MsgBox(prompt$, vbOKCancel, Title$)
    If Reply = vbOK Then
     Text1(0).SetFocus
     Data1.Recordset.AddNew
    End If

Ik wil er ook nog een zoek functie in maken.... iemand suggesties?

BVD

[Gerco]

Kijk naar de FindFirst en FindNext functies van je recordset.

[Piels]

Wat ik er eigenlijk vergeten was bij te zetten, is dat de Addnew functie niet werkt.

Ik krijg dus allemaal legen vakken, waar ik dus nieuwe data in kan vullen. Nu heb ik die data ingevuld, druk op de next butten.
Maar hij slaat nix op!!

Hoe kan ik dit het beste doen?

[Gerco]

Zijn die velden data bound? zo niet, moet je wel even de record INVULLEN!

code:

Dim rs As RecordSet
Wth rs
  .AddNew
  !veld1=waarde1
  !veld2=waarde2
  .Update
End With

[Piels]

Dat is dus juist niet wat ik wil.

Ik wil dat de gebruiker gewoon de textvakken in kan vullen, en dat ie dan op een save button drukt. Dus heb ik een button gemaakt: data1.recordset.update
Maar dan krijg ik een error:

Update zonder Addnew of edit.

Wat is jouw voorstel?

Zijn die velden data bound? zo niet, moet je wel even de record INVULLEN!

Wat bedoel je hiermee??

[Piels]

Nog iets,

Ik heb een Flexgrid aan een database gehangen. Maar als ik nu het flexgrid bekijk, dan gooit ie alle velden door de war!

Wat kan ik hier aan doen??

[Gerco]

Op woensdag 26 september 2001 11:05 schreef AdrianP het volgende:
Ik wil dat de gebruiker gewoon de textvakken in kan vullen, en dat ie dan op een save button drukt. Dus heb ik een button gemaakt: data1.recordset.update

En hoe moet die recordset aan zijn data komen? Moet 'ie raden welke vakken waar in de db moeten? Dat zul je 'em toch op de 1 of andere manier moeten vertellen.

[Piels]

Het is al gelukt, maar nu die flexgrid nog en die zoekfunctie.... Weet jij misschien iets ?

[Gerco]

Voor de zoekfunctie moet je naar de FindFirst en FindNext functies van de recordset kijken, zoals ik in mijn eerste reply al zei.

Een flexgrid heb ik nog nooit gebruikt, dus daar weet ik niets van.

[disjfa]

als je nou een mooie sql querie maakt zoals:

select * from tabel where naam like 'zoeknaam'

en dan heel mooi op je schermpje zetten

[Piels]

Ik heb nu het volgende doormiddel van SQL

code:

Dim db As Database
    Dim rs As Recordset
    
    Set db = OpenDatabase("xxx.mdb")
    Set rs = db.OpenRecordset("SELECT * FROM Container WHERE Chipsnummer = '" & currentForm.Text1.Text & "'", dbOpenForwardOnly)

Hoe moet ik nu de zoek functie inbouwen???

[Piels]

Het werkt allemaal al, ik heb nu ook een zoek functie:

code:

Private Sub Command2_Click()
    
    ProgressBar1.Min = 0
    ProgressBar1.Max = MSFlexGrid1.Rows - 1
    ProgressBar1.Visible = True
    
    MSFlexGrid1.FillStyle = flexFillSingle
    For i = 0 To MSFlexGrid1.Cols - 1
      For j = 1 To MSFlexGrid1.Rows - 1
     
        If Text1.Text = "" Then
            Reply = MsgBox("Je moet wel wat invullen als je wilt zoeken", vbOKOnly, "Error")
        If Reply = vbOK Then
            Text1.Text = "Typ hier de zoek opdracht"
        End If
        End If
        
        ProgressBar1.Value = j
        
        If InStr(MSFlexGrid1.TextMatrix(j, i), Text1.Text) Then
           
            MSFlexGrid1.Col = i
            MSFlexGrid1.Row = j
            MSFlexGrid1.CellFontBold = True
                         
        End If
      Next j
    Next i
    ProgressBar1.Visible = False
Command3.Visible = True

Maar nu wil ik de cell breedte aanpassen in het flexgrid.
De cells moeten net zo groot worden als de tekst lang is. Hoe kan ik die automatisch laten aanpassen??

[elessar]

Op donderdag 27 september 2001 10:39 schreef AdrianP het volgende:
Het werkt allemaal al, ik heb nu ook een zoek functie:
Maar nu wil ik de cell breedte aanpassen in het flexgrid.
De cells moeten net zo groot worden als de tekst lang is. Hoe kan ik die automatisch laten aanpassen??

Je kan Grid.ColWidth(colnr) aanpassen aan de hand van het aantal characters dat er in een cel staat.

[Piels]

Tnx!
Ga het meteen proberen.