خطا در کار با کتابخانه VoiceRecognition

[MR.B4A 124]

سلام.

دوستان این دستورات رو ببینید:

Private Sub voice_Result (Success As Boolean, Texts As List)
	If Success=True Then
		name=Texts.Get(0)
		cur=sql.ExecQuery("SELECT * FROM tbl_contact WHERE name="&name&"")
		For i=0 To cur.RowCount-1
			cur.Position=i
			number=cur.GetString("number")
			lbl_contact_name.Text=number
			
			voice_rec.Initialize("voice_txt")
			voice_rec.Language="fa"
			voice_rec.Prompt="متن خود را بگویید..."
			voice_rec.Listen
			lbl_txt_mes.Visible=True
		Next
	Else
		ToastMessageShow("جمله نامفهوم بود",False)
	End If
End Sub

بعد از این که این خط اجرا میشه،

cur=sql.ExecQuery("SELECT * FROM tbl_contact WHERE name="&name&"")

برنامه فورس کلوز میده و خارج میشه!!

کسی میدونه چرا؟!

[Salar82 919]

در در 18 اسفند 1398 در 14:13، batman123 گفته است :

cur=sql.ExecQuery("SELECT * FROM tbl_contact WHERE name="&name&"")

سلام

بجای این خط، از این استفاده کنید:

cur=sql.ExecQuery2("SELECT * FROM tbl_contact WHERE name = ?" , Array As String(name))