[RESOLVED] Clear field name

[matrik02]

I use data control and data grid..

How I can clear the field when the record not found in database?

If Text1.Text = "" Then
MsgBox "Please input your name!", vbExclamation + vbOKOnly, "Peringatan"
Else
Data3.RecordSource = "Select Plot, Area, Owner1, Owner2 from blockC Where Owner1 = '" & StrConv(Text1.Text, vbProperCase) & "' or Owner2= '" & StrConv(Text1.Text, vbProperCase) & "'"

Data3.Refresh

If Data3.Recordset.EOF Then
MsgBox "Nama " & Text1.Text & " not found!.", vbInformation, "Peringatan"
Text1.Text = ""

Else
Data3.Recordset.MoveFirst
End If
End If
'End If
End Sub

[yadavrahul143]

Hi,

Why you are using Data Control.. this fuctionality can be applied by coding also by using ODBC connection..

If you want i can post u the code for the same..

[matrik02]

because I want to list the record in daa grid. Back to the question.. I want to clear the field in the grid...
Thank you

[yadavrahul143]

Hi

I have changed code to use ODBC Connection. Try using this code.

'General Declaration
'Add Reference to "Microsoft Activex DataObjects 2.7" or 2.6,2.5,2.4
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Temp.mdb;Persist Security Info=False"
    rs.CursorLocation = adUseClient
End Sub

Private Sub Command1_Click()
    If rs.State = 1 Then rs.Close
    rs.Open "Select Plot, Area, Owner1, Owner2 from blockC Where Owner1 = '" & StrConv(Text1.Text, vbProperCase) & "' or Owner2= '" & StrConv(Text1.Text, vbProperCase) & "'", con, adOpenDynamic, adLockReadOnly
    DataGrid1.ClearFields
    Set DataGrid1.DataSource = rs
End Sub

This will surely help u out...